(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    165671,       4098]
NotebookOptionsPosition[    132001,       3371]
NotebookOutlinePosition[    132476,       3388]
CellTagsIndexPosition[    132433,       3385]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"1c139233-07f5-4a4f-81e6-55c502d6383e"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"a54a8d4d-7335-45dc-881a-fba88f7fdd3e"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"515443ef-fe48-4442-806a-5680c7e5a1b5"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"0a61fa2d-e662-4c11-9bd4-838e1602c93e"]
}], "History",
 CellID->1247902091,ExpressionUUID->"9c1a61d1-589f-4a81-b733-167660d50738"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"27a2cd5e-56eb-4d27-854a-a05df2bd1e4c"],

Cell["Tutorial", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"c7a058bb-9c8b-4081-b757-34d697aca319"],

Cell["RefpropLink", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"8dd915b9-635a-446e-98aa-8a8857ca074f"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"6a3ad461-6f59-44a6-a513-7ddce5198834"],

Cell["RefpropLink/tutorial/PureFluids", "Categorization",
 CellLabel->"URI",ExpressionUUID->"82c735ad-b58c-4b5f-a7f4-36f9749a04ea"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552,ExpressionUUID->"87b7dc59-1444-4e91-bcf4-4155020ec7b1"],

Cell["RefpropLink", "Keywords",
 CellChangeTimes->{{3.82276582801587*^9, 3.8227658297472095`*^9}, {
  3.8311874174991517`*^9, 3.8311874242311125`*^9}},
 CellID->1251852827,ExpressionUUID->"75d7db51-c351-4a59-9b4f-ba545a30a043"],

Cell["REFPROP", "Keywords",
 CellChangeTimes->{{3.82276582801587*^9, 3.8227658297472095`*^9}},
 CellID->236225652,ExpressionUUID->"0eba14b6-5e58-43f9-9881-ad9223b49879"],

Cell["Pure Fluids", "Keywords",
 CellChangeTimes->{{3.82276582801587*^9, 3.822765834594245*^9}},
 CellID->536658192,ExpressionUUID->"d5d450d3-a242-47cc-b63d-60d0e046f740"],

Cell["Properties", "Keywords",
 CellChangeTimes->{{3.82276582801587*^9, 3.8227658623310585`*^9}},
 CellID->198970734,ExpressionUUID->"c8a136f8-f928-4cb2-a318-9a8f54dae74f"],

Cell["Physical", "Keywords",
 CellChangeTimes->{{3.82276582801587*^9, 3.8227658644963026`*^9}},
 CellID->627327796,ExpressionUUID->"f4fdca49-34a0-4a10-8196-4914243b9e58"],

Cell["Thermodynamic", "Keywords",
 CellChangeTimes->{{3.82276582801587*^9, 3.822765846652993*^9}},
 CellID->81429279,ExpressionUUID->"78fdf52e-6248-4a0f-897a-a32c17b3844a"],

Cell["Transport", "Keywords",
 CellChangeTimes->{{3.82276582801587*^9, 3.8227658493837185`*^9}},
 CellID->616331511,ExpressionUUID->"a20e7a8d-bef5-467e-a022-3cb7540aa168"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"4028aec9-085f-40b4-80b6-e586bac82f9a"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.82276588344761*^9, 3.8227658891194077`*^9}},
 CellLabel->"Lead",
 CellID->218895918,ExpressionUUID->"9c29f018-1fd4-420b-92df-e6fe8e412155"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.822765892639024*^9, 3.8227658943753786`*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"b9fcb94e-d2df-4599-91bf-dfdc09d14ca1"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8227658972477007`*^9, 3.822765899007988*^9}},
 CellLabel->"Authors",
 CellID->795871300,ExpressionUUID->"817e0f99-b221-4a2f-b2fc-f39f99cab49f"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->199739161,ExpressionUUID->"2070d27e-eefd-4939-8023-5d624ff71d89"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->40625308,ExpressionUUID->"b4e18d4e-3f19-48d9-a58b-e2a502695bb1"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->357121918,ExpressionUUID->"ec07f952-c820-4e02-b371-f82011c4cf6f"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->35949532,ExpressionUUID->"a197e162-d4d9-4f32-b2a4-b9c8f73c5cb5"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->929432370,ExpressionUUID->"dc06c13d-d4dc-4f5f-896a-bd0bc2a387f0"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"2af9ea73-d846-43c0-bd4d-636422a98cd4"]
}, Closed]],

Cell[CellGroupData[{

Cell["Pure Fluids", "Title",
 CellChangeTimes->{3.8225735845732727`*^9},
 CellID->509267359,ExpressionUUID->"bf24d7fd-590e-48c3-a385-10415dbed039"],

Cell[TextData[{
 "This tutorial demonstrates how to use ",
 StyleBox[ButtonBox["RefpropLink",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/guide/RefpropLink"],
  FontWeight->"Bold"],
 " to access pure fluid material properties using the High-Level Application \
Program Interface (API) functions introduced with NIST REFPROP 10.  These \
functions can be generally slower than the Legacy API functions because, \
while simpler and more convenient, they require a fair amount text string \
processing in the underlying, Fortran-based Dynamic Linked Library (DLL), \
which is slow at handling string manipulations and comparisons.  Benchmarks \
of ",
 StyleBox["RefpropLink",
  FontWeight->"Bold"],
 " implementation show that the Legacy API functions can be up to 2X faster \
than performing the same calculations through the High-Level API with the \
same DLL."
}], "Text",
 CellChangeTimes->{{3.8225729359850254`*^9, 3.8225729658850822`*^9}, {
  3.8225729996697235`*^9, 3.8225730862780457`*^9}, {3.822573118021162*^9, 
  3.8225731369734707`*^9}, {3.822573314837753*^9, 3.82257334980518*^9}, {
  3.8225741534018607`*^9, 3.8225741536611795`*^9}, {3.8228345662823553`*^9, 
  3.82283467187395*^9}, {3.8229151107291555`*^9, 3.8229151236884623`*^9}, {
  3.8303262032851553`*^9, 3.830326203787822*^9}, {3.8305924812245255`*^9, 
  3.830592489489462*^9}, {3.8310938087148056`*^9, 3.8310938289217596`*^9}},
 CellID->1534169418,ExpressionUUID->"944de537-a4a9-40d0-9189-b67d7ad652f4"],

Cell[TextData[{
 "That said, the High-Level API consists of basically one single function (",
 StyleBox[ButtonBox["RefProp",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/ref/RefProp"],
  FontWeight->"Bold"],
 ") through which all of the NIST REFPROP features can be accessed.  This \
makes the High-Level API both simple and versatile, since there is really \
just one function, but it has many parameters and options that allow it to \
access most, if not all of the NIST REFPROP features."
}], "Text",
 CellChangeTimes->{{3.8225733732784233`*^9, 3.8225735410616536`*^9}, {
  3.822574049389061*^9, 3.822574076296068*^9}, {3.830326226700542*^9, 
  3.830326264500416*^9}},
 CellID->72059017,ExpressionUUID->"91ba4114-02f5-4129-ba00-83dcae0f51f1"],

Cell[TextData[{
 "An attempt is made to make this tutorial mirror the ",
 StyleBox[ButtonBox["Pure Fluids (Legacy API)",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"],
  FontWeight->"Bold"],
 " tutorial as closely as possible so that the difference between these APIs \
is clearly visible."
}], "Text",
 CellChangeTimes->{{3.8225735671508784`*^9, 3.822573665437984*^9}, {
  3.8225740356637554`*^9, 3.8225740359210787`*^9}, {3.830326275211733*^9, 
  3.830326281499938*^9}},
 CellID->36100660,ExpressionUUID->"95ad17d9-befc-464b-a5c0-f27f5a534f51"],

Cell[TextData[{
 "Before diving in, and along the way, one should probably delve into the \
unique way that ",
 StyleBox[ButtonBox["RefpropLink ",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/guide/RefpropLink"],
  FontWeight->"Bold"],
 "facilitates units by reviewing the ",
 StyleBox[ButtonBox["RefpropLink Units",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/tutorial/Units"],
  FontWeight->"Bold"],
 " tutorial."
}], "Text",
 CellChangeTimes->{{3.82257373591847*^9, 3.822573855323105*^9}, {
  3.822573901437781*^9, 3.82257390161628*^9}, {3.8293928571955643`*^9, 
  3.829392912171563*^9}, {3.83032631697999*^9, 3.830326335717882*^9}, {
  3.831187629374965*^9, 3.8311876373665895`*^9}},
 CellID->189076469,ExpressionUUID->"b0057339-dd29-4d4f-957b-0557ff15617f"],

Cell[TextData[{
 "Not all functionalities are demonstrated here and for more complex usage, \
the ",
 StyleBox[ButtonBox["NIST REFPROP Online DLL Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://refprop-docs.readthedocs.io/en/latest/DLL/index.html"], 
    None}],
  FontWeight->"Bold"],
 " should be consulted as well."
}], "Text",
 CellChangeTimes->{{3.82257373591847*^9, 3.822573855323105*^9}, {
  3.822573901437781*^9, 3.82257390161628*^9}, {3.8293928571955643`*^9, 
  3.829392912171563*^9}, {3.83032631697999*^9, 3.8303263471881742`*^9}, {
  3.830592786335263*^9, 3.830592788520445*^9}},
 CellID->203927537,ExpressionUUID->"4247f8b4-5549-4054-bc6c-5a62c98d39e7"],

Cell[CellGroupData[{

Cell["Initializing RefpropLink", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82257418252599*^9, 3.8225741905185843`*^9}, {
  3.8225742225409875`*^9, 3.822574224990436*^9}},
 CellID->43322749,ExpressionUUID->"446855ec-2294-4053-af6d-b664debb148e"],

Cell[TextData[{
 "Before initializing the ",
 StyleBox[ButtonBox["RefpropLink",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/guide/RefpropLink"],
  FontWeight->"Bold"],
 " package, it is a good idea to clear out any variables and previously \
loaded packages using the ",
 Cell[BoxData[
  ButtonBox["Quit",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "e4eed052-5acd-49e1-ae42-6ff58b89395e"],
 " command to restart the Mathematica kernel.  This is especially true when \
reloading ",
 StyleBox["RefpropLink",
  FontWeight->"Bold"],
 " without shutting down Mathematica."
}], "Text",
 CellChangeTimes->{{3.8225767649737487`*^9, 3.822577004106141*^9}, {
  3.831093912706623*^9, 3.831093955778417*^9}},
 CellID->573431709,ExpressionUUID->"7d66f9b4-c360-40d0-a6ff-32fd06dda91a"],

Cell[CellGroupData[{

Cell["Restart the kernel", "MathCaption",
 CellChangeTimes->{{3.822577021923484*^9, 3.822577028146839*^9}},
 CellID->279625114,ExpressionUUID->"96aed69d-5d86-4e5e-96dd-0d4150774653"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8225770347022777`*^9, 3.822577035388455*^9}},
 CellLabel->"In[62]:=",
 CellID->713385182,ExpressionUUID->"1ca234e3-523f-4b70-ab91-8d57f53b8940"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Use the ",
 StyleBox["Needs",
  FontWeight->"Bold"],
 " function to load the RefpropLink package (Note the \"back apostrophe\")"
}], "MathCaption",
 CellChangeTimes->{{3.822577113443695*^9, 3.8225771226909647`*^9}, {
  3.8225775112915707`*^9, 3.822577549578165*^9}, {3.8303263646684084`*^9, 
  3.830326369148451*^9}},
 CellID->872464924,ExpressionUUID->"6ad0cd35-aa2f-497c-a972-0f16bc0c144f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->68619680,ExpressionUUID->"513534e0-8fae-4a15-b52c-6437ff2b9474"],

Cell[BoxData[
 FrameBox["\<\"Found NIST REFPROP Version: 10.0.0.2\"\>",
  Background->RGBColor[0.88, 1, 0.88],
  FrameStyle->None,
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.822577659569704*^9, 3.8228074097248583`*^9, 
  3.8228077442837973`*^9, 3.822810748568511*^9, 3.822829935452963*^9, 
  3.822856537911189*^9, 3.8228702413880124`*^9, 3.822870576239496*^9, 
  3.822870707372733*^9, 3.8228709039569283`*^9, 3.8303275252984047`*^9, 
  3.8303278666930437`*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->305347762,ExpressionUUID->"1a052188-d561-4f56-b918-41a46def85dc"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "That's it!  ",
 StyleBox["RefpropLink",
  FontWeight->"Bold"],
 " is now loaded and all of it's public functions and variables are available \
for use.  The initialization will print out the version of NIST REFPROP that \
is installed and being used by RefpropLink.  If a REFPROP installation is not \
found, an error message will display.  "
}], "Text",
 CellChangeTimes->{{3.8225776805236907`*^9, 3.822577724863063*^9}, {
   3.8225986919584985`*^9, 3.822598753630573*^9}, {3.822766216495821*^9, 
   3.822766322911174*^9}, 3.830326430147232*^9},
 CellID->86903750,ExpressionUUID->"e4450b58-9363-4aa6-893e-463714532d33"],

Cell[TextData[{
 "This initialization step only needs to be performed once at the beginning \
of a Mathematica session and it's a good idea to put these commands at the \
top of any notebook file.  However, this step doesn't have to be executed in \
the current notebook.  It can be executed in a completely separate notebook, \
but should be executed ",
 StyleBox["before",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " any commands in the current notebook in the current Mathematica session."
}], "Text",
 CellChangeTimes->{
  3.8227662541361265`*^9, {3.8303264695717983`*^9, 3.830326531987807*^9}, {
   3.8303265675237103`*^9, 3.8303266643556786`*^9}},
 CellID->159972398,ExpressionUUID->"16f29a8e-31b9-43fc-9bfc-925ca0fd795b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Load a Fluids File", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.822588742305045*^9, 3.822588750327588*^9}},
 CellID->44087500,ExpressionUUID->"79552c8f-497f-4776-ba58-6a324d960ce6"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"SetFluids", "[", 
     StyleBox["hFld", "TI"], "]"}], Cell[
    "Load a pure fluid specified in the hFld string parameter.", "TableText",
     ExpressionUUID->"9c6c04a8-633a-4054-9449-e721884ad108"]},
   {
    RowBox[{"RefProp", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", 
      StyleBox["hIn", "TI"], ",", 
      StyleBox["hOut", "TI"], ",", 
      StyleBox["a", "TI"], ",", 
      StyleBox["b", "TI"]}], "]"}], Cell["\<\
Perform a Refprop calculation after loading the fluid file specified in the \
optional hFLD string parameter \
\>", "TableText",ExpressionUUID->"3573f7b1-1f92-4dd6-accc-5dbe9e4a8a3d"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822766385400005*^9, 3.8227664730395956`*^9}, {
  3.8227665496317625`*^9, 3.8227666986382475`*^9}, {3.8250524856261225`*^9, 
  3.8250524868428392`*^9}, {3.831094793059346*^9, 3.831094804666288*^9}},
 CellID->2096742444,ExpressionUUID->"3724ed61-98bc-4078-bdbd-c3c9577b181b"],

Cell["Methods used to specify the working fluids file.", "Caption",
 CellChangeTimes->{{3.822766368702695*^9, 3.8227663789682083`*^9}},
 CellID->1891092685,ExpressionUUID->"7b4500fb-8a80-41c7-ad24-3eeb735c8e49"],

Cell[TextData[{
 "There are two ways to load a pure fluid into REFPROP.  The first is to load \
a specified fluid file using the ",
 StyleBox["SetFluids",
  FontWeight->"Bold"],
 " command, which takes a single string parameter containing the name of the \
fluid to be loaded.  The fluid name is not case sensitive.  The actual \
REFPROP fluid files have the extension \".FLD\", but this is optional in the \
fluid name string.  The full fluid file path can be specified as well, if the \
file is in a location other than the default ",
 StyleBox["FLUIDS\\",
  FontFamily->"Courier New",
  FontWeight->"Normal"],
 " folder under the REFPROP installation directory."
}], "Text",
 CellChangeTimes->{{3.8227667226420565`*^9, 3.8227667723271465`*^9}, {
  3.822766901478709*^9, 3.82276705471086*^9}, {3.8227671203343363`*^9, 
  3.822767147450779*^9}, {3.822800690248927*^9, 3.822800695672394*^9}, {
  3.8228009531447315`*^9, 3.822800970354725*^9}, {3.830326812803536*^9, 
  3.8303268147882037`*^9}},
 CellID->9367822,ExpressionUUID->"c95fe574-5682-41d0-b277-5b132223c1e9"],

Cell[CellGroupData[{

Cell["These four fluid string names are valid for water.", "MathCaption",
 CellChangeTimes->{{3.822767062182845*^9, 3.8227670835267854`*^9}, {
  3.830326690827834*^9, 3.8303266910033655`*^9}},
 CellID->836781195,ExpressionUUID->"b2732365-8678-49c7-a3cc-84e83d6e8524"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"hFld", "=", "\"\<WATER.FLD\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "hFld", "=", 
   "\"\<C:\\\\Program Files (x86)\\\\REFPROP\\\\FLUIDS\\\\WATER.FLD\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hFld", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<Program Files (x86)\>\"", ",", "\"\<REFPROP\>\"",
       ",", "\"\<FLUIDS\>\"", ",", "\"\<WATER\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hFld", "=", "\"\<water\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.8227664828154764`*^9, 3.822766500687646*^9}, {
  3.8227670886470604`*^9, 3.822767105751341*^9}, {3.822767157802092*^9, 
  3.8227672189435606`*^9}, {3.822767311894968*^9, 3.8227673734882236`*^9}, {
  3.822767425166971*^9, 3.8227675126230516`*^9}, {3.8227679170702953`*^9, 
  3.8227679707905903`*^9}, {3.822800701273412*^9, 3.822800710201531*^9}},
 CellLabel->"In[1]:=",
 CellID->2058623809,ExpressionUUID->"bb1f64ee-b488-4802-bae8-98002ee5c395"]
}, Open  ]],

Cell[TextData[{
 "The full list of fluids available can be found in the default ",
 StyleBox["FLUIDS\\",
  FontFamily->"Courier New",
  FontWeight->"Normal"],
 " folder under the REFPROP installation directory as well as .  A \
pseudo-pure fluid is a mixture that has been curve fit to behave like a pure \
fluid.  These files have a \".PPF\" extension, which ",
 StyleBox["must",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " be included in the fluid name."
}], "Text",
 CellChangeTimes->{{3.822800891569454*^9, 3.8228009335680943`*^9}, {
  3.8228009875387383`*^9, 3.8228010988011713`*^9}, {3.8228014686160326`*^9, 
  3.822801471536193*^9}},
 CellID->31667136,ExpressionUUID->"b52f8538-fe67-4701-8ff7-4966ebab1f5d"],

Cell[CellGroupData[{

Cell["Identify a pseudo-pure fluid string", "MathCaption",
 CellChangeTimes->{{3.822801114305702*^9, 3.822801129521005*^9}},
 CellID->745559432,ExpressionUUID->"6af4ab8e-d223-47b7-9de3-5c6fa7f13f6e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPPF", "=", "\"\<R404A.PPF\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.822801175917879*^9, 3.822801259368702*^9}},
 CellLabel->"In[5]:=",
 CellID->625027908,ExpressionUUID->"91a41a29-9ce5-4ae6-8bf6-4c006cb938ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Call SetFluids and pass it a string variable or a literal string.\
\>", "MathCaption",
 CellChangeTimes->{{3.822768023437776*^9, 3.8227680657775283`*^9}},
 CellID->1992131,ExpressionUUID->"f44ad4c4-2471-41f8-bc2e-a6f04a7a10eb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetFluids", "[", "hFld", "]"}]], "Input",
 CellChangeTimes->{{3.822768069266197*^9, 3.822768080981862*^9}},
 CellLabel->"In[6]:=",
 CellID->602888993,ExpressionUUID->"4c6bcdb8-894b-488d-a091-ee09b39b72ee"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8227680870586367`*^9, 3.8303277116458406`*^9, 
  3.830327893215089*^9},
 CellLabel->"Out[6]=",
 CellID->865316893,ExpressionUUID->"bd398038-3dd5-4e16-87fa-94cf1904d48a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetFluids", "[", "\"\<water\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.822768093162283*^9, 3.822768100846758*^9}},
 CellLabel->"In[7]:=",
 CellID->550005453,ExpressionUUID->"3d941fd2-5d85-49e9-ba8c-9ecbd188e9d6"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8227681043195066`*^9, 3.830327711750561*^9, 
  3.8303278967307124`*^9},
 CellLabel->"Out[7]=",
 CellID->60422796,ExpressionUUID->"76eaa35a-7f6a-43c6-940b-239b5a48ef12"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "The ",
 StyleBox["SetFluids",
  FontWeight->"Bold"],
 " function returns a REFPROP error code, ",
 Cell[BoxData[
  StyleBox["ierr", "TI"]], "InlineFormula",ExpressionUUID->
  "29500028-a1cd-4792-b34f-bb872c11f67b"],
 ".  If the returned error code is zero (0), then the call was successful.  \
If not successful, ",
 StyleBox["SetFluids",
  FontWeight->"Bold"],
 " will generate a non-zero error code and a companion error message, which \
will be displayed through the Message system."
}], "Text",
 CellChangeTimes->{{3.822591125832873*^9, 3.822591235303062*^9}, {
  3.8227681382736235`*^9, 3.8227681530042515`*^9}, {3.8303268528035326`*^9, 
  3.830326854490988*^9}},
 CellID->191796628,ExpressionUUID->"c008bf71-2429-41fa-a6f9-8af13061c788"],

Cell[CellGroupData[{

Cell["Call SetFluids with an invalid fluid name.", "MathCaption",
 CellChangeTimes->{{3.822768197670782*^9, 3.822768233341375*^9}},
 CellID->147634239,ExpressionUUID->"f2b5d98e-8117-4d4b-a401-caec7beb80b3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetFluids", "[", "\"\<unknown\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8227682242107677`*^9, 3.822768227630648*^9}, {
  3.8227682608936815`*^9, 3.822768268846409*^9}},
 CellLabel->"In[8]:=",
 CellID->209108873,ExpressionUUID->"e1cd92c5-4f8e-455d-9c74-35987994125b"],

Cell[BoxData[
 TemplateBox[{
  "SetFluids", "refprop", 
   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"[SETUP error 101] Error in opening file \
for component 1: filename = unknown.FLD in the path C:\\\\\\\\\\\\\\\\Program \
Files (x86)\\\\\\\\\\\\\\\\REFPROP\\\\\\\"\\\"}]\\)\"", 2, 8, 1, 
   33616106306742442129, "Local", "RefpropLink`SetFluids"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.830327901182802*^9},
 CellLabel->"During evaluation of In[8]:=",
 CellID->329427531,ExpressionUUID->"7b969e84-a82e-4e13-b072-cf50a4a98540"],

Cell[BoxData["101"], "Output",
 CellChangeTimes->{3.8227682761059628`*^9, 3.8303277118453107`*^9, 
  3.830327901203718*^9},
 CellLabel->"Out[8]=",
 CellID->10643477,ExpressionUUID->"0623f7eb-e192-4704-b528-9e76891a0d69"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Since the REFPROP error Message is returned if an error occurs and it has \
the error code, ",
 Cell[BoxData[
  StyleBox["ierr", "TI"]], "InlineFormula",ExpressionUUID->
  "254d1261-af55-4778-9e0f-bb030f52302c"],
 ", embedded in it, the output from setup can be suppressed with a \
semi-colon, since no error message means that the error code was zero."
}], "Text",
 CellChangeTimes->{{3.8225913449667225`*^9, 3.8225914497105927`*^9}, {
  3.8227683032294164`*^9, 3.822768325683387*^9}},
 CellID->24003802,ExpressionUUID->"e7b8c2b2-e92d-47e0-a44e-bba3d61eeca8"],

Cell[CellGroupData[{

Cell["Suppress the numeric error code output from SetFluids", "MathCaption",
 CellChangeTimes->{{3.82276836047832*^9, 3.822768377071909*^9}},
 CellID->50496077,ExpressionUUID->"6bc48adb-fbe1-451e-99e0-9be04126aa63"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SetFluids", "[", "\"\<unknown\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.822768383322191*^9, 3.822768392638276*^9}},
 CellLabel->"In[9]:=",
 CellID->257827635,ExpressionUUID->"7950c2c6-0d0b-4e2e-9ef5-d98afb16ef83"],

Cell[BoxData[
 TemplateBox[{
  "SetFluids", "refprop", 
   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"[SETUP error 101] Error in opening file \
for component 1: filename = unknown.FLD in the path C:\\\\\\\\\\\\\\\\Program \
Files (x86)\\\\\\\\\\\\\\\\REFPROP\\\\\\\"\\\"}]\\)\"", 2, 9, 2, 
   33616106306742442129, "Local", "RefpropLink`SetFluids"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.830327907260542*^9},
 CellLabel->"During evaluation of In[9]:=",
 CellID->661059401,ExpressionUUID->"2de9c84b-165d-4473-9fdc-b47ae9d0593d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetFluids", "[", "\"\<water\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8227684021059513`*^9, 3.8227684129021034`*^9}},
 CellLabel->"In[10]:=",
 CellID->102645484,ExpressionUUID->"7e3777f7-6e0b-4aa8-9b65-157fbaa4cfec"]
}, Open  ]],

Cell[TextData[StyleBox["NO news is GOOD news!",
 FontSlant->"Italic"]], "Text",
 CellChangeTimes->{{3.8227684302147956`*^9, 3.8227684505264397`*^9}},
 CellID->457182272,ExpressionUUID->"593bd07a-c4f0-42c1-93a9-2bc78fbceaf8"],

Cell[CellGroupData[{

Cell["Loading the Fluid on the first property call to RefProp", "Subsection",
 CellChangeTimes->{{3.8227685252705517`*^9, 3.8227685427667527`*^9}},
 CellID->147952826,ExpressionUUID->"61ef9288-17d6-4808-bfa2-2f4c3e257ff9"],

Cell[TextData[{
 "Alternatively, REFPROP's High-Level API provides a single function, ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 ", that can be used to calculate all fluid properties and perform all of \
REFPROP's functions.  The very first parameter to the ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " function is the fluid string, ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "c55707cc-5ae7-4f40-80de-d7998309a411"],
 ", which will be loaded before any other action is taken by the function."
}], "Text",
 CellChangeTimes->{{3.8227685525854626`*^9, 3.822768686567103*^9}, 
   3.8227691946521263`*^9, {3.83032688551499*^9, 3.830326886203158*^9}, {
   3.830326934747308*^9, 3.8303270421878424`*^9}},
 CellID->438536369,ExpressionUUID->"95e39684-cfaa-4aa9-8b63-a70fbc6a7bb4"],

Cell[CellGroupData[{

Cell["Calculate the density of water at 72\[Degree]F and 14.7psi", \
"MathCaption",
 CellChangeTimes->{{3.8227687299341364`*^9, 3.822768756920926*^9}},
 CellID->4312122,ExpressionUUID->"08c4e3a3-ff83-4d24-b73c-02244e921c88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<water\>\"", ",", "\"\<TP\>\"", ",", "\"\<D\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"14.7", "psi"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8227687653613515`*^9, 3.8227688324130087`*^9}},
 CellLabel->"In[11]:=",
 CellID->161902410,ExpressionUUID->"2d16c7ca-7076-41d4-91ba-249da6bd9c52"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"D\"\>", "\[Rule]", 
   TemplateBox[{"55.382067593622146`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8227688265287757`*^9, 3.822768833765391*^9}, 
   3.8303277121215677`*^9, 3.830327916115823*^9},
 CellLabel->"Out[11]=",
 CellID->20757527,ExpressionUUID->"ee909102-131a-4cc5-935e-f912438db941"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Once the fluid has been loaded, the first parameter in ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " can, and should be omitted for all subsequent calls and the currently \
loaded fluid will be used.  The first parameter, ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "27b987aa-3ee8-4786-94d7-a475041a4338"],
 ", should only be passed again to load a different fluid file or mixture."
}], "Text",
 CellChangeTimes->{{3.822768864030469*^9, 3.8227689228780684`*^9}, {
  3.8227689597494493`*^9, 3.8227690073830147`*^9}, {3.822769134861079*^9, 
  3.8227691854716816`*^9}, {3.830327068898384*^9, 3.8303271154508424`*^9}},
 CellID->529267541,ExpressionUUID->"3423377f-ff87-423c-a422-8ce64b85229b"],

Cell[CellGroupData[{

Cell["\<\
Calculate water density again, without specifying the fluid name.\
\>", "MathCaption",
 CellChangeTimes->{{3.8227690229214554`*^9, 3.822769047165637*^9}},
 CellID->478095006,ExpressionUUID->"695b673c-6e8c-4d7d-a2ef-276f3926e27e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TP\>\"", ",", "\"\<D\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"14.7", "psi"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8227690509544744`*^9, 3.82276906666249*^9}},
 CellLabel->"In[12]:=",
 CellID->260241142,ExpressionUUID->"61cbe9e4-6a96-4d30-bdc5-25a3daa8b2d7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"D\"\>", "\[Rule]", 
   TemplateBox[{"55.382067593622146`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.822769112330313*^9, 3.8303277122203045`*^9, 
  3.830327922380065*^9},
 CellLabel->"Out[12]=",
 CellID->696739875,ExpressionUUID->"b9a32786-8823-4182-9d19-de984f397a6f"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "NOTE: The remainder of this tutorial will use just the ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " function and will, for the most part, omit the first ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "f9c0534f-77d9-45ef-94a0-1a5aafe99b56"],
 " parameter, thereby using the fluid name previously loaded fluid."
}], "Text",
 CellChangeTimes->{{3.822801897904948*^9, 3.8228019232321777`*^9}, {
  3.8228026511927843`*^9, 3.8228026843341446`*^9}, {3.822803128365527*^9, 
  3.8228031325183897`*^9}, {3.8257578500962043`*^9, 3.8257578952564554`*^9}, {
  3.830327132075397*^9, 3.8303271331794124`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellID->207435388,ExpressionUUID->"c360f53e-2de4-4704-9907-0192b05ad7ae"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Get Non-Numeric Fluid Information", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.822800534921382*^9, 3.8228005609697104`*^9}},
 CellID->168967793,ExpressionUUID->"87a0ce7e-3778-454a-ad4d-7105fa6ef9ae"],

Cell[TextData[{
 "In addition to calculating thermodynamic and transport properties, the ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " function is the Swiss Army knife of accessing all of the functions and \
features of NIST REFPROP.  Non-numeric information about the loaded fluid and \
even NIST REFPROP itself, can be retrieved for pure fluids using ",
 Cell[BoxData[
  ButtonBox["RefProp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/RefProp"]], "InlineFormula",
  ExpressionUUID->"9e5a5a68-4792-4a95-8772-93163d9282ee"],
 ".  Since this information is non-state dependent, the ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "8ef01fd1-1b19-454d-bd97-ce000633c7f8"],
 " string can be blank (but not omitted), numeric inputs ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "f5f46f80-9cda-4545-b489-1415a7c04a11"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "9b99fc8e-e1d3-43b2-b58e-c276177088e9"],
 " can be passed as 0 (they are ignored), and the composition array, ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "43c3d666-8617-40d9-983e-052a3f012c6e"],
 ", is not needed as the last parameter."
}], "Text",
 CellChangeTimes->{{3.822802723383671*^9, 3.822802849039609*^9}, {
  3.822803025126629*^9, 3.8228030509016886`*^9}, {3.8257584234401956`*^9, 
  3.825758479645913*^9}, {3.830327146043996*^9, 3.8303271780513964`*^9}},
 CellID->777290077,ExpressionUUID->"5fea5f69-a829-4a24-b681-4d590c4ef419"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"RefProp", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", "\"\<\>\"", ",", 
      StyleBox["hOut", "TI"], ",", "0", ",", "0"}], "]"}], Cell["\<\
Perform a Refprop calculation after loading the fluid file specified in the \
hFLD string parameter \
\>", "TableText",ExpressionUUID->"293adddd-ac1b-4244-a944-c614c3f3abf3"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822766385400005*^9, 3.8227664730395956`*^9}, {
  3.8227665496317625`*^9, 3.8227666986382475`*^9}, {3.8228032170064373`*^9, 
  3.8228032170253863`*^9}, {3.8228134780560813`*^9, 3.82281350027668*^9}, {
  3.825758517024969*^9, 3.8257585172733326`*^9}, {3.831094774974521*^9, 
  3.8310947824365788`*^9}},
 CellID->43206102,ExpressionUUID->"e4f8e866-9217-4683-8bed-fb583391261a"],

Cell["RefProp for retrieving non-numeric fluid information.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.822813407092914*^9, 3.8228134349154997`*^9}, {
  3.825758586983943*^9, 3.825758602688921*^9}},
 CellID->735775108,ExpressionUUID->"843c043c-d835-4fe2-b48f-1e8e2df600c0"],

Cell[TextData[{
 "Note that when retrieving this information, ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "d40d6699-445e-4b79-82a4-1e6310cd5f3b"],
 " need only be specified when changing fluids. All of the remaining \
parameters in the template above, beyond ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "f93f0f6c-15fd-4fc1-927e-2ddbeb14a881"],
 ", ",
 StyleBox["must",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " be present (even if arbitrary) with a minimum of four parameters being \
passed."
}], "Text",
 CellChangeTimes->{{3.822803154001927*^9, 3.82280316853508*^9}, {
  3.822803238733325*^9, 3.822803497365532*^9}, {3.822807814706465*^9, 
  3.822807823002286*^9}, {3.8257585468163443`*^9, 3.8257585799207993`*^9}, {
  3.8303272471954126`*^9, 3.8303272474267664`*^9}, {3.8303272788108344`*^9, 
  3.8303273055463085`*^9}},
 CellID->442086200,ExpressionUUID->"19d5f4ca-c57b-406c-90b7-912111e29bff"],

Cell[TextData[{
 "NOTE: ",
 StyleBox["Only one string value can be returned at a time.",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.822804252686304*^9, 3.8228042810234814`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellID->329574969,ExpressionUUID->"eccb81a8-5bb9-44a1-a34c-1f327310ad11"],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "bb073ce2-2d66-4a68-9c58-f1ff19fabbac"],
 " string parameter, is set to ",
 StyleBox["one",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 " of the information strings in the partial list below.  For the full list \
of ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "69fb1061-b4de-4059-a31f-3b07d4110912"],
 " strings, see the ",
 StyleBox[ButtonBox["NIST REFPROP Online DLL Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://refprop-docs.readthedocs.io/en/latest/DLL/index.html"], 
    None}],
  FontWeight->"Bold"],
 " in the REFPROPdll function description."
}], "Text",
 CellChangeTimes->{{3.8256306230825677`*^9, 3.825630644177144*^9}, {
  3.825630787113184*^9, 3.825630841545664*^9}, {3.8257562225439506`*^9, 
  3.8257562514785843`*^9}, {3.8303274151969585`*^9, 3.8303274475633416`*^9}, {
  3.830335693430877*^9, 3.8303357193028336`*^9}},
 CellID->134133454,ExpressionUUID->"7c81065b-274b-49d3-b7ee-cc8f231f4912"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"CAS", "#"}], Cell[
    "Return the Chemical Abstracts Service (CAS) number.", "TableText",
     ExpressionUUID->"cc1d411f-2da3-42b1-972e-d18dbf1de765"]},
   {"CMEMFORM", Cell[
    "Rethurn the short Chemical Formula.", "TableText",ExpressionUUID->
     "9f372088-ca54-46d4-926a-1b53e8c48e96"]},
   {"NAME", Cell[
    "Return the Short Fluid Name.", "TableText",ExpressionUUID->
     "b31ee12f-e152-401c-89e5-8784cbd1bf59"]},
   {"LONGNAME", Cell["\<\
Return the Long fluid name given in the 3rd line fo the fluids files.\
\>", "TableText",ExpressionUUID->"edf73d09-9126-4cfb-b416-72423fa08874"]},
   {"HASH", Cell[
    "Return the hash number.", "TableText",ExpressionUUID->
     "243b9ab4-d65c-46aa-be06-d581973264f5"]},
   {"INCHI", Cell[
    "Return the INCHI string.", "TableText",ExpressionUUID->
     "1fd38376-f978-4607-a011-90e9a1fa4e86"]},
   {"SAFETY", Cell[
    "Return the ASHRAE-34 classification", "TableText",ExpressionUUID->
     "a30e1893-633a-49d7-8396-a17da30ee489"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.8256307769144464`*^9, 3.825630779737926*^9}, {
  3.8256308499701223`*^9, 3.825631044985714*^9}},
 Background->GrayLevel[0.85],
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.2], {
      Scaled[0.8]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->248133496,ExpressionUUID->"384fcfa3-5b79-4062-a711-b9870e745cf9"],

Cell["\<\
hOut strings for fluid component identification information (see NIST REFPROP \
Manual for full list).\
\>", "Caption",
 CellChangeTimes->{{3.8256310525135503`*^9, 3.8256310787534213`*^9}, {
  3.8257562644559083`*^9, 3.8257562826732054`*^9}},
 CellID->475182523,ExpressionUUID->"8caaeaf1-fe47-4666-9e3f-7f9ec3af67ce"],

Cell[CellGroupData[{

Cell["Get the fluid NAME, LONGNAME, and CAS# of a fluid", "MathCaption",
 CellChangeTimes->{{3.8228036352178183`*^9, 3.8228036815110264`*^9}, {
  3.8228037309727488`*^9, 3.8228037419104567`*^9}},
 CellID->214308626,ExpressionUUID->"f36941ee-8e56-4b9c-bdf7-d4fbcb10f7e6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{
   "\"\<R12\>\"", ",", "\"\<TP\>\"", ",", "\"\<NAME\>\"", ",", "0", ",", 
    "0"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Load", " ", "fluid", " ", "on", " ", "first", " ", "call"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.8228036993941727`*^9, 3.8228037046730585`*^9}, {
  3.8228037601736264`*^9, 3.8228037855896187`*^9}, {3.8257587182649217`*^9, 
  3.8257587327371974`*^9}},
 CellLabel->"In[30]:=",
 CellID->859327599,ExpressionUUID->"dd3fe161-cc78-4c12-b550-46e9132a366f"],

Cell[BoxData["\<\"R12\"\>"], "Output",
 CellChangeTimes->{3.822803792701621*^9, 3.822807398307395*^9, 
  3.8228077580849113`*^9, 3.8228082521635933`*^9, 3.82281075797237*^9, 
  3.8303277123210354`*^9, 3.830327935960732*^9, 3.8303282151149116`*^9},
 CellLabel->"Out[30]=",
 CellID->100225071,ExpressionUUID->"56741453-1e27-4ff5-ad3b-475d9db02054"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<TP\>\"", ",", "\"\<LONGNAME\>\"", ",", "0", ",", "0"}], "]"}],
   "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"use", " ", "current", " ", "fluid"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.822803809429881*^9, 3.8228038357674294`*^9}, {
  3.822803874216568*^9, 3.8228039532940874`*^9}},
 CellLabel->"In[31]:=",
 CellID->145434806,ExpressionUUID->"84757fcd-8f73-48b8-abbb-f0e164aec055"],

Cell[BoxData["\<\"Dichlorodifluoromethane\"\>"], "Output",
 CellChangeTimes->{3.822803957169694*^9, 3.822807762510075*^9, 
  3.8228107653296857`*^9, 3.830327712417776*^9, 3.8303279361931105`*^9, 
  3.8303282186853595`*^9},
 CellLabel->"Out[31]=",
 CellID->587136245,ExpressionUUID->"64a47759-028e-4d07-8285-e126abddc318"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<CAS#\>\"", ",", "0", ",", "0"}], "]"}], 
  "           ", 
  RowBox[{"(*", " ", 
   RowBox[{"hIn", ",", " ", "a", ",", " ", 
    RowBox[{"and", " ", "b", " ", "are", " ", "arbitrary"}]}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.8228039638508224`*^9, 3.8228040093661118`*^9}, {
  3.830327462923278*^9, 3.8303274695405445`*^9}},
 CellLabel->"In[32]:=",
 CellID->350921121,ExpressionUUID->"ec579f3c-b9dd-47cd-81e3-268d2e30b383"],

Cell[BoxData["\<\"75-71-8\"\>"], "Output",
 CellChangeTimes->{3.8228040113308287`*^9, 3.822807765905985*^9, 
  3.82281076896595*^9, 3.8303277125743566`*^9, 3.830327936390582*^9, 
  3.8303282222388525`*^9},
 CellLabel->"Out[32]=",
 CellID->85943562,ExpressionUUID->"3fbb8416-b18a-440d-8fbe-3e39b5b20566"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Just about any of the fluid information strings in the fluids file can be \
retrieved.\
\>", "Text",
 CellChangeTimes->{{3.822807231451657*^9, 3.822807268778846*^9}, {
  3.8257587765849576`*^9, 3.825758777465626*^9}},
 CellID->65466232,ExpressionUUID->"880699a7-83a8-411c-b770-e59b03feea93"],

Cell[CellGroupData[{

Cell["\<\
Attempting to retrieve more that one fluid information string simultaneously \
will return just the first string. \
\>", "MathCaption",
 CellChangeTimes->{{3.8303280934583797`*^9, 3.830328129273593*^9}, {
  3.830328232241124*^9, 3.8303282972891006`*^9}},
 CellID->69051426,ExpressionUUID->"43d553b4-1db0-472f-aa69-0a7964aec395"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<NAME LONGNAME CAS#\>\"", ",", "0", ",", "0"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.8303281718337307`*^9, 3.8303282026662426`*^9}},
 CellLabel->"In[33]:=",
 CellID->529151913,ExpressionUUID->"a9872f26-56f1-4e55-a970-2c7d5be088b2"],

Cell[BoxData["\<\"R12\"\>"], "Output",
 CellChangeTimes->{{3.8303282057748995`*^9, 3.830328226355839*^9}},
 CellLabel->"Out[33]=",
 CellID->467831935,ExpressionUUID->"6ecff0d4-fdbe-468a-a57a-51fbdea91170"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Chemical Formula (CHEMFORM) for the current fluid", "MathCaption",
 CellChangeTimes->{{3.822804544549627*^9, 3.8228045673177586`*^9}, 
   3.8228072789954977`*^9},
 CellID->132293235,ExpressionUUID->"578baf87-36ef-4d09-a31a-e77e1b53aa22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<CHEMFORM\>\"", ",", "0", ",", "0"}], "]"}],
   " "}]], "Input",
 CellChangeTimes->{{3.822804584925663*^9, 3.8228045884612055`*^9}},
 CellLabel->"In[16]:=",
 CellID->32351803,ExpressionUUID->"da25958f-05d7-4d44-b7d6-5f0e4f7f2e54"],

Cell[BoxData["\<\"CCl2F2\"\>"], "Output",
 CellChangeTimes->{3.8228045910333314`*^9, 3.8228077693228617`*^9, 
  3.8303277126810713`*^9, 3.8303279494576244`*^9},
 CellLabel->"Out[16]=",
 CellID->149626786,ExpressionUUID->"5b03dbd2-280c-4faf-965d-ccea95f75ec7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["IUPAC International Chemical Identifier (InChI)", "MathCaption",
 CellChangeTimes->{{3.8228081394348407`*^9, 3.8228081410425406`*^9}, {
  3.8228082188576837`*^9, 3.8228082421054955`*^9}},
 CellID->16667521,ExpressionUUID->"f0456d1d-ed32-41a3-a199-e72d62745a6f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<InChI\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.822808259487005*^9, 3.8228082710819917`*^9}},
 CellLabel->"In[17]:=",
 CellID->571050780,ExpressionUUID->"3047b263-b398-4e6f-b666-c83221875201"],

Cell[BoxData["\<\"1S/CCl2F2/c2-1(3,4)5\"\>"], "Output",
 CellChangeTimes->{3.8228082731035852`*^9, 3.830327712780805*^9, 
  3.8303279496860123`*^9},
 CellLabel->"Out[17]=",
 CellID->187492022,ExpressionUUID->"9d56a382-90de-4198-b6f0-e70ac967a0e1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ASHRAE 34 characterization", "MathCaption",
 CellChangeTimes->{{3.8228073240181055`*^9, 3.82280735115349*^9}},
 CellID->925534222,ExpressionUUID->"4a393a03-78ca-4174-916b-7a0626bf36fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<SAFETY\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.822807358837965*^9, 3.8228073864341536`*^9}, {
  3.8228077985486836`*^9, 3.8228077987292013`*^9}},
 CellLabel->"In[18]:=",
 CellID->726611780,ExpressionUUID->"da56dc65-88fc-456a-bcfa-63d42c4a8a41"],

Cell[BoxData["\<\"A1\"\>"], "Output",
 CellChangeTimes->{
  3.822807388883607*^9, {3.822807772956106*^9, 3.822807799768392*^9}, 
   3.8303277128795404`*^9, 3.8303279498814898`*^9},
 CellLabel->"Out[18]=",
 CellID->426563230,ExpressionUUID->"376f6c9f-43b2-4b1d-ab3f-3e0768e5b3da"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["NIST REFPROP DLL version number", "MathCaption",
 CellChangeTimes->{{3.822808484745535*^9, 3.822808492209572*^9}},
 CellID->372873216,ExpressionUUID->"81df5a16-4a97-4122-8108-817419c4dd18"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<DLL#\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.822808511113011*^9, 3.8228085129451103`*^9}},
 CellLabel->"In[19]:=",
 CellID->100613727,ExpressionUUID->"cdc17103-8801-4812-b7e4-6ebae65b28f2"],

Cell[BoxData["\<\"10.0.0.02\"\>"], "Output",
 CellChangeTimes->{3.8228085199672985`*^9, 3.8303277129772787`*^9, 
  3.830327950081954*^9},
 CellLabel->"Out[19]=",
 CellID->322628945,ExpressionUUID->"5e4a10ba-67aa-459a-9726-daddb107f646"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "There are a large number of non-numeric information options available.  The \
NIST REFPROP documentation should be consulted for a full list of ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "f048d685-d0bc-4fd7-a241-b13becf9ede1"],
 " requests and understanding of how to use them."
}], "Text",
 CellChangeTimes->{{3.822808332065907*^9, 3.822808338354088*^9}, {
  3.822808368376788*^9, 3.822808471901889*^9}},
 CellID->822504919,ExpressionUUID->"b5e23ae8-f3f2-4993-934f-125cdec70fa4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Get Fluid Numeric Constants", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.822808621115816*^9, 3.822808629132347*^9}},
 CellID->217680659,ExpressionUUID->"6eef46b0-3390-4f12-8ebc-d2f1a5822697"],

Cell[TextData[{
 "Again, we only need to use the ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " function to return any of the fluid constants, such as the critical point \
or triple point values.  Since these fluid constants are not state dependent, \
the ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "f3f8968a-248f-429e-80ad-9493716a7b41"],
 " string parameter can be an empty string and the numeric inputs  ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "c5dc21ab-5b3a-4937-a87f-74554c415ac0"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "8285e910-6e7c-4737-a528-cb8587586349"],
 " can be passed arbitrarily as 0.  "
}], "Text",
 CellChangeTimes->{{3.8228086626108313`*^9, 3.8228087938088875`*^9}, {
  3.825761673473432*^9, 3.825761713065593*^9}, {3.8257617467156386`*^9, 
  3.825761757257411*^9}},
 CellID->309768251,ExpressionUUID->"61a43ac0-9634-40e4-925d-09d9b0451651"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"RefProp", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", "\"\<\>\"", ",", 
      StyleBox["hOut", "TI"], ",", "0", ",", "0"}], "]"}], Cell["\<\
Retrieve fluid numeric constants requested in the hOut string\
\>", "TableText",ExpressionUUID->"ad509bd0-18dd-46a1-8829-7752f3470c31"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822766385400005*^9, 3.8227664730395956`*^9}, {
  3.8227665496317625`*^9, 3.8227666986382475`*^9}, {3.8228032170064373`*^9, 
  3.8228032170253863`*^9}, {3.825761650737252*^9, 3.825761657169027*^9}, {
  3.825762002692196*^9, 3.8257620174267707`*^9}, {3.8257658153535757`*^9, 
  3.8257658188422546`*^9}, {3.831094752559493*^9, 3.8310947635440845`*^9}},
 CellID->400179512,ExpressionUUID->"44b3e478-8979-403a-a05f-8f59cde2d71c"],

Cell["RefProp for calculating equation limits.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.822813407092914*^9, 3.8228134349154997`*^9}},
 CellID->531457254,ExpressionUUID->"0e58de96-c064-4103-82cd-49e5588573ed"],

Cell[TextData[{
 "For numeric output, the underlying REFPROPdll routine sends results back in \
an array.  This means that multiple values can be requested at the same time \
by including them to the ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "e9f753ec-b985-4dc0-8470-713b74065b65"],
 " string, separated by spaces, commas, semicolons, or vertical bars (pipe \
char), but different separators should ",
 StyleBox["not",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 " be mixed.  As before, the ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "c0de493b-0e94-4513-889e-78c50cbc7d7c"],
 " parameter is optional if not changing fluids."
}], "Text",
 CellChangeTimes->{{3.8228089322895203`*^9, 3.822808992145424*^9}, {
  3.8228092694157853`*^9, 3.8228092928321476`*^9}, {3.8228093451761827`*^9, 
  3.8228093739681344`*^9}, {3.8303283941299925`*^9, 3.8303284588179655`*^9}, {
  3.830335408056287*^9, 3.8303354434302454`*^9}},
 CellID->26859345,ExpressionUUID->"73ebb41a-40de-4ff5-ac1c-41546191611c"],

Cell[CellGroupData[{

Cell["Get the temperature at the critical point for water", "MathCaption",
 CellChangeTimes->{{3.8228090818973637`*^9, 3.8228091193362274`*^9}},
 CellID->297053278,ExpressionUUID->"ae587db6-21e0-49fd-9181-3b677b67d0fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{
  "\"\<water\>\"", ",", "\"\<XX\>\"", ",", "\"\<TCRIT\>\"", ",", "0", ",", 
   "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.82280912296552*^9, 3.822809154712607*^9}},
 CellLabel->"In[34]:=",
 CellID->438876674,ExpressionUUID->"b7ac6cd3-6237-456a-9173-77bc58dba227"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"TCRIT\"\>", "\[Rule]", 
   TemplateBox[{"647.096`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.822809156471896*^9, 3.822810778356814*^9, 3.825922706058503*^9, 
   3.8259330035344515`*^9, 3.8303277130740204`*^9, {3.8303278178407383`*^9, 
   3.8303278381733737`*^9}, 3.8303279681775427`*^9, 3.8303283263314047`*^9},
 CellLabel->"Out[34]=",
 CellID->364096811,ExpressionUUID->"e9678ca3-3acd-46fb-8a95-63780db4adff"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Emulate the behavior of the INFO function from the Legacy API by requesting a \
number of property constants at once.\
\>", "MathCaption",
 CellChangeTimes->{{3.822809023913454*^9, 3.822809065680729*^9}, {
  3.822809174616373*^9, 3.822809203616802*^9}},
 CellID->141653994,ExpressionUUID->"a08e2ef7-855e-4251-88ba-6d11723f48cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"const", "=", 
  RowBox[{"RefProp", "[", 
   RowBox[{
   "\"\<\>\"", ",", "\"\<M TTRP TNBP TC PC DC ACF DIPOLE REOS\>\"", ",", "0", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8228092091888976`*^9, 3.822809261944762*^9}, {
  3.822809382792561*^9, 3.8228093862812*^9}, {3.8228094244162292`*^9, 
  3.8228094622240763`*^9}, {3.8228095406802297`*^9, 3.822809607327966*^9}, {
  3.8259226726019716`*^9, 3.8259226777372646`*^9}},
 CellLabel->"In[35]:=",
 CellID->7620002,ExpressionUUID->"070a8474-3eeb-4d93-b2ec-95d53c2dff99"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"M\"\>", "\[Rule]", 
    TemplateBox[{"18.015268`", 
      RowBox[{
       "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"kmol\""}], "kilograms per kilomole", 
      FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"TTRP\"\>", "\[Rule]", 
    TemplateBox[{"273.16`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"TNBP\"\>", "\[Rule]", 
    TemplateBox[{"373.1243`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"TC\"\>", "\[Rule]", 
    TemplateBox[{"647.096`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"PC\"\>", "\[Rule]", 
    TemplateBox[{"22064.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"DC\"\>", "\[Rule]", 
    TemplateBox[{"17.8737279956`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"ACF\"\>", "\[Rule]", "0.3443`"}], ",", 
   RowBox[{"\<\"DIPOLE\"\>", "\[Rule]", 
    TemplateBox[{"1.855`", "\"D\"", "debyes", "\"Debyes\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"REOS\"\>", "\[Rule]", 
    TemplateBox[{"8.314371357587`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.822809570563301*^9, 3.8228096089566097`*^9}, 
   3.8228107871164227`*^9, {3.8259226968840337`*^9, 3.8259227097516537`*^9}, 
   3.8303277131737537`*^9, 3.8303278180431957`*^9, 3.830327973279892*^9, 
   3.8303283265737257`*^9},
 CellLabel->"Out[35]=",
 CellID->189798443,ExpressionUUID->"ec4d6f83-c5c8-4bf2-8635-4772198f8d60"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Display the constants in a formatted list for easier viewing.\
\>", "MathCaption",
 CellChangeTimes->{{3.822809629233404*^9, 3.822809653770769*^9}},
 CellID->132103409,ExpressionUUID->"3fdb8fec-321f-4910-b37c-3dead3f8504c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", "const", ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[36]:=",
 CellID->428491342,ExpressionUUID->"544da4d8-752c-410e-b036-b8eea8d884f9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"M\"\>", 
     TemplateBox[{"18.015268`", 
       RowBox[{
        "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"kmol\""}], "kilograms per kilomole", 
       FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
      "Quantity"]},
    {"\<\"TTRP\"\>", 
     TemplateBox[{"273.16`", "\"K\"", "kelvins", "\"Kelvins\""},
      "Quantity"]},
    {"\<\"TNBP\"\>", 
     TemplateBox[{"373.1243`", "\"K\"", "kelvins", "\"Kelvins\""},
      "Quantity"]},
    {"\<\"TC\"\>", 
     TemplateBox[{"647.096`", "\"K\"", "kelvins", "\"Kelvins\""},
      "Quantity"]},
    {"\<\"PC\"\>", 
     TemplateBox[{"22064.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"]},
    {"\<\"DC\"\>", 
     TemplateBox[{"17.8737279956`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"ACF\"\>", "0.3443`"},
    {"\<\"DIPOLE\"\>", 
     TemplateBox[{"1.855`", "\"D\"", "debyes", "\"Debyes\""},
      "Quantity"]},
    {"\<\"REOS\"\>", 
     TemplateBox[{"8.314371357587`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8228096700981026`*^9, 3.8228107924202175`*^9, 
  3.825922764523181*^9, 3.830327713276479*^9, 3.830327818167863*^9, 
  3.8303279770129056`*^9, 3.830328326696398*^9},
 CellLabel->"Out[36]//TableForm=",
 CellID->139208044,ExpressionUUID->"48056a38-7fa0-4db8-a264-e3118c1a107e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Extract the returned List values from info to individual variables for use in \
other functions.\
\>", "MathCaption",
 CellChangeTimes->{3.8228108540992255`*^9},
 CellID->234012741,ExpressionUUID->"5a092571-2c40-434a-a934-dca9d389fefe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
   "molWt", ",", "tTrip", ",", "tNBP", ",", "tCrit", ",", "pCrit", ",", 
    "dCrit", ",", "acf", ",", "dip", ",", "rGas"}], "}"}], "=", 
  RowBox[{"const", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822810878513576*^9, 3.822810879359343*^9}},
 CellLabel->"In[37]:=",
 CellID->18320211,ExpressionUUID->"8997ec89-a1af-4a87-ac20-fa0d14377a15"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"18.015268`", 
     RowBox[{
      "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
       "\"kmol\""}], "kilograms per kilomole", 
     FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
    "Quantity"], ",", 
   TemplateBox[{"273.16`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{"373.1243`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{"647.096`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{"22064.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{"17.8737279956`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", "0.3443`", ",", 
   TemplateBox[{"1.855`", "\"D\"", "debyes", "\"Debyes\""},
    "Quantity"], ",", 
   TemplateBox[{"8.314371357587`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8228108885806847`*^9, 3.8259227797131386`*^9, 
  3.8303277134510117`*^9, 3.830327818316466*^9, 3.8303279858303156`*^9, 
  3.830328326817075*^9},
 CellLabel->"Out[37]=",
 CellID->584020064,ExpressionUUID->"e2608957-9f56-4b94-a719-c75b74694733"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
The constants for this fluid are now stored in individual variables.\
\>", "MathCaption",
 CellChangeTimes->{{3.822810897895762*^9, 3.8228109424715357`*^9}},
 CellID->284021356,ExpressionUUID->"eb2bcd93-2611-4774-8888-c58c9385d64a"],

Cell[CellGroupData[{

Cell[BoxData["molWt"], "Input",
 CellChangeTimes->{{3.8228109493540993`*^9, 3.8228109534950533`*^9}},
 CellLabel->"In[38]:=",
 CellID->3044338,ExpressionUUID->"8b3fb31f-7955-43ff-aec7-25e54abb012a"],

Cell[BoxData[
 TemplateBox[{"18.015268`", 
   RowBox[{
    "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"kmol\""}],
    "kilograms per kilomole", 
   FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.82281095514765*^9, 3.8303277136055975`*^9, 
  3.8303278184341507`*^9, 3.8303279970962095`*^9, 3.830328326937752*^9},
 CellLabel->"Out[38]=",
 CellID->327464765,ExpressionUUID->"b80801f4-3530-463c-82c2-78d72af146a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["tCrit"], "Input",
 CellChangeTimes->{{3.8228109590332394`*^9, 3.8228109647589254`*^9}},
 CellLabel->"In[39]:=",
 CellID->83767176,ExpressionUUID->"b732ca73-58e5-4286-b848-14e7be2343d9"],

Cell[BoxData[
 TemplateBox[{"647.096`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.822810966377596*^9, 3.8303277137093306`*^9, 
  3.8303278185508385`*^9, 3.8303279972407894`*^9, 3.830328327058429*^9},
 CellLabel->"Out[39]=",
 CellID->291330739,ExpressionUUID->"de895b7a-0176-42df-b89c-6cd49fd5d589"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["rGas"], "Input",
 CellChangeTimes->{{3.8228109700497465`*^9, 3.8228109721192093`*^9}},
 CellLabel->"In[40]:=",
 CellID->369442671,ExpressionUUID->"5e249230-0e4b-4a19-aed4-fc16789d3bfb"],

Cell[BoxData[
 TemplateBox[{"8.314371357587`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8228109803242917`*^9, 3.8303277138070593`*^9, 
  3.8303278186695213`*^9, 3.8303279973564796`*^9, 3.8303283271731224`*^9},
 CellLabel->"Out[40]=",
 CellID->288882511,ExpressionUUID->"8e445f56-0adf-49f3-b799-3e5575125e40"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Note: ZCRIT is not retrievable from RefProp, but can easily be calculated \
from the ideal gas law, using the critical values determined above.\
\>", "MathCaption",
 CellChangeTimes->{{3.822810999033244*^9, 3.8228110338960023`*^9}, {
  3.822811226758156*^9, 3.822811262078655*^9}},
 CellID->126272510,ExpressionUUID->"37be1ae0-24f7-4a5a-a804-d5876c8d17af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vCrit", "=", 
  RowBox[{"1", "/", "dCrit"}]}]], "Input",
 CellChangeTimes->{{3.822811173274207*^9, 3.8228111854067574`*^9}},
 CellLabel->"In[41]:=",
 CellID->343623176,ExpressionUUID->"8c28bde7-4ef3-416b-b0ac-bb648a4758e6"],

Cell[BoxData[
 TemplateBox[{"0.0559480372671091`", 
   RowBox[{
    "\"L\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}], 
   "liters per mole", 
   FractionBox["\"Liters\"", "\"Moles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8228111900662932`*^9, 3.8303277139077897`*^9, 
  3.8303278187872057`*^9, 3.830328003887025*^9, 3.830328327287815*^9},
 CellLabel->"Out[41]=",
 CellID->258221495,ExpressionUUID->"cac670ad-5ca3-4c09-8561-2ae2f874e542"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"zCrit", "=", 
  FractionBox[
   RowBox[{"pCrit", "*", "vCrit"}], 
   RowBox[{"rGas", "*", "tCrit"}]]}]], "Input",
 CellChangeTimes->{{3.8228104557597322`*^9, 3.8228104885200415`*^9}, {
   3.822811042880973*^9, 3.822811107159047*^9}, {3.8228111567144957`*^9, 
   3.822811158862756*^9}, 3.8228111987271013`*^9},
 CellLabel->"In[42]:=",
 CellID->14690021,ExpressionUUID->"94f90244-4c72-4310-bc89-964254efd084"],

Cell[BoxData["0.22944097045346462`"], "Output",
 CellChangeTimes->{{3.8228104675192394`*^9, 3.82281048955228*^9}, 
   3.822811111153364*^9, 3.822811201935522*^9, 3.8303277140095177`*^9, 
   3.830327818910875*^9, 3.83032800407351*^9, 3.830328327404503*^9},
 CellLabel->"Out[42]=",
 CellID->84931282,ExpressionUUID->"2bf27e15-b8d8-4f88-ae6b-d24bae170e6f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fluid Equation Limits", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.822811718023282*^9, 3.8228117223995476`*^9}},
 CellID->254897833,ExpressionUUID->"8c37b6f3-d4c1-42cf-8715-c989bfd6172f"],

Cell["\<\
Each set of fluid equations was generated within a specific range of validity \
for the independent variables of temperature, pressure, and density.  It is a \
best practice to restrict calculations between these limits.\
\>", "Text",
 CellChangeTimes->{{3.822811729255211*^9, 3.822811857285797*^9}, 
   3.8228119246061*^9},
 CellID->594464066,ExpressionUUID->"ee8a739e-4c36-4a7a-95c7-67795fe54b9e"],

Cell["\<\
Attempting calculations below the minimum temperature and/or above the \
maximum density is not recommended. These will often correspond to a \
physically unreasonable state; also, many equations of state do not \
extrapolate reliably to lower temperatures and higher densities.\
\>", "Text",
 CellChangeTimes->{{3.8228120482234383`*^9, 3.8228120737262278`*^9}, {
   3.830335486711889*^9, 3.8303354957749753`*^9}, 3.830335636365531*^9},
 CellID->92632341,ExpressionUUID->"04b27a8e-7516-4c05-89f7-16faaaa008f1"],

Cell[TextData[{
 "Most equations of state, however, may be extrapolated to higher \
temperatures and pressures.  Temperatures can usually safely be extrapolated \
to Temperatures up to 1.5 * ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["T", "TI"], 
   StyleBox["max", "TI"]]], "InlineFormula",ExpressionUUID->
  "d606755f-efef-425a-8d45-40f770e97e26"],
 " and pressures up to 2 * ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["P", "TI"], 
   StyleBox["max", "TI"]]], "InlineFormula",ExpressionUUID->
  "57973e3c-4d00-43d1-a2f3-e480ddea2f10"],
 ".  Extrapolation beyond these extended limits is not recommended."
}], "Text",
 CellChangeTimes->{{3.822812115333931*^9, 3.822812176133341*^9}, {
  3.822812213463463*^9, 3.822812246093223*^9}, {3.822812281589281*^9, 
  3.8228123111651697`*^9}, {3.8303355072393255`*^9, 3.8303355366444006`*^9}, {
  3.8303355668149405`*^9, 3.8303356168961196`*^9}},
 CellID->395169496,ExpressionUUID->"3cb92313-f031-436c-9103-d6103b8fc232"],

Cell[TextData[{
 "Again, we'll be using the ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " function to get these values."
}], "Text",
 CellChangeTimes->{{3.8228123761822643`*^9, 3.822812394174142*^9}},
 CellID->6091344,ExpressionUUID->"76e40096-65ad-4e5e-b977-9d0db9b9a3dd"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"RefProp", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", "\"\<XX\>\"", ",", 
      StyleBox["hOut", "TI"], ",", "0", ",", "0"}], "]"}], Cell["\<\
Perform a Refprop calculation after loading the fluid file specified in the \
hFLD string parameter \
\>", "TableText",ExpressionUUID->"5a161d5e-38eb-4696-b491-53a0475e8e54"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822766385400005*^9, 3.8227664730395956`*^9}, {
   3.8227665496317625`*^9, 3.8227666986382475`*^9}, {3.8228032170064373`*^9, 
   3.8228032170253863`*^9}, {3.8228135882364106`*^9, 3.822813601556754*^9}, 
   3.8310948322814245`*^9},
 CellID->83391216,ExpressionUUID->"95f606e7-021b-45f8-80ff-de1dc7de3895"],

Cell["RefProp for calculating equation limits.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.822813407092914*^9, 3.8228134349154997`*^9}},
 CellID->79998218,ExpressionUUID->"f1c901ce-14d7-4ca2-8de8-6a856d210c13"],

Cell["\<\
The hOut strings to acquire the equation limits are demonstrated below and \
may all be requested at once.  The minimum limits on pressure and density are \
zero.\
\>", "Text",
 CellChangeTimes->{{3.8228124430464554`*^9, 3.8228124973182898`*^9}, {
  3.8228131048363323`*^9, 3.8228131276852193`*^9}},
 CellID->171995161,ExpressionUUID->"346cfe21-ccec-40af-8152-e8f4a5e4a2c9"],

Cell["\<\
NOTE: We're going to call RefProp and pull All of the values out of the \
returned list to individual variables in on step.\
\>", "Text",
 CellChangeTimes->{{3.8228127996137404`*^9, 3.822812871076599*^9}},
 CellID->533644,ExpressionUUID->"ad21bb7a-5e0b-41b7-aaca-53641c8f5585"],

Cell[CellGroupData[{

Cell["Get the EOS Limits of Tmin, Tmax, Pmax and Dmax", "MathCaption",
 CellChangeTimes->{{3.8228125046786056`*^9, 3.822812524558403*^9}, {
  3.8228127254929905`*^9, 3.8228127476856046`*^9}},
 CellID->562879126,ExpressionUUID->"665094d5-f391-4bcb-a5a3-0cc7264c4c7d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["T", "min"], ",", 
    SubscriptBox["T", "max"], ",", 
    SubscriptBox["P", "max"], ",", 
    SubscriptBox["D", "max"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<Tmin Tmax Pmax Dmax\>\"", ",", "0", ",", "0"}], 
    "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8228127527690353`*^9, 3.82281277380577*^9}, {
  3.8228128763574743`*^9, 3.822812926021637*^9}, {3.822813152854915*^9, 
  3.8228131575732765`*^9}},
 CellLabel->"In[43]:=",
 CellID->171360131,ExpressionUUID->"e092ffe6-bd2e-4545-9c8c-de20bc3c40df"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"251.165`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{"2000.`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{"1.`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{"73.96`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.822812934996603*^9, 3.8228131588169804`*^9, 
  3.830327714165101*^9, 3.8303283397335196`*^9},
 CellLabel->"Out[43]=",
 CellID->121436709,ExpressionUUID->"8670b060-6bf2-4e10-843d-46d8d866a02c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["State Point Properties", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8228138785089893`*^9, 3.822813886733024*^9}},
 CellID->95238974,ExpressionUUID->"1513b838-564a-4e8c-a07c-e2be4356aa9e"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"RefProp", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", 
      StyleBox["hIn", "TI"], ",", 
      StyleBox["hOut", "TI"], ",", 
      StyleBox["a", "TI"], ",", 
      StyleBox["b", "TI"]}], "]"}], Cell["\<\
Perform a Refprop calculation after loading the fluid file specified in the \
hFLD string parameter \
\>", "TableText",ExpressionUUID->"745228c0-ad0b-407f-a0af-b71a6988d288"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822766385400005*^9, 3.8227664730395956`*^9}, {
   3.8227665496317625`*^9, 3.8227666986382475`*^9}, {3.8228032170064373`*^9, 
   3.8228032170253863`*^9}, 3.822813654173045*^9, 3.8228138358461*^9, 
   3.83109484235948*^9},
 CellID->446905933,ExpressionUUID->"0b57aa9c-6311-4ece-a256-3b6c7fbffc9a"],

Cell["RefProp for calculating state point properties.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.822813407092914*^9, 3.8228134349154997`*^9}, {
  3.8228139316997485`*^9, 3.8228139354756517`*^9}},
 CellID->221740640,ExpressionUUID->"9624ca90-873e-402f-a78e-9b40cbd44e9c"],

Cell[TextData[{
 "To identify a unique thermodynamic state point, typically two state point \
parameters must be supplied.  These values are passed to RefProp as \
parameters ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "bfc45d3f-c421-421a-9e2b-0ef16dbcb73c"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "5fe7e9fd-fde4-4c7e-81a8-113ad025203a"],
 " and are identified by the string parameter, ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "6acf6331-9f5d-47e4-9bf8-3c06a25703bc"],
 "."
}], "Text",
 CellChangeTimes->{{3.822813903517129*^9, 3.8228139039090524`*^9}, {
  3.822813941085615*^9, 3.8228140677657843`*^9}},
 CellID->9962670,ExpressionUUID->"ac479c17-e5f3-4e00-8301-e0aea96599eb"],

Cell[TextData[{
 "Valid character codes for ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "8b3f543b-ca67-4e2c-aa03-be6155f96bf3"],
 " are T, P, D, E, H, S, and Q (temperature, pressure, density, energy, \
enthalpy, entropy, and quality).  Two of these should be sent together to \
identify the contents and order of the ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "962fa4f0-1232-491c-ab10-2a5675a21b9f"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "82a1ac80-8253-4165-a8ab-364a065a2ead"],
 " variables. For example, \"TP\" would indicate inputs of temperature and \
pressure, and \"TQ\" would indicate inputs of temperature and quality.  Valid \
input pairs are: TP, TD, TE, TH, TS, TQ, PD, PE, PH, PS, PQ, DE, DH, DS, DQ, \
ES, EQ, HS, HQ, SQ (or the inverse of any of these, e.g., QT)."
}], "Text",
 CellChangeTimes->{{3.822814160282361*^9, 3.822814216883966*^9}, {
  3.822814255795889*^9, 3.822814335701138*^9}, {3.822814367227844*^9, 
  3.822814422299512*^9}, {3.822815333547251*^9, 3.8228153497848268`*^9}},
 CellID->174857264,ExpressionUUID->"80c1bec0-3dfe-413b-ba1a-1baa0fe617a3"],

Cell[TextData[{
 "IMPORTANT: The order of the properties being sent to the routine in the \
variables ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "c6f312c4-fa77-47f5-9c80-49a92a4ff459"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "db5260b1-e5e2-4ec0-9dce-9ad24a16a05a"],
 " has to be the same as the order of the letter pair sent to ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "3452d7a0-beb5-435c-b494-8e5a8c17fcfc"],
 "; for example, if ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "4169d66b-ba7f-4799-ac76-b723553ab67c"],
 " is \"QT\", then ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "d546231e-0bef-44b9-8d08-7d2648f958de"],
 "=Q and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "e82eb339-f599-492c-b6ab-9925a9af5fe7"],
 "=T."
}], "Text",
 CellChangeTimes->{
  3.822814347216343*^9, {3.8228144331335344`*^9, 3.8228145318974047`*^9}},
 Background->RGBColor[0.9, 1, 1],
 CellID->569057450,ExpressionUUID->"222e6d28-79c5-4327-b9b0-fc94b7214590"],

Cell[TextData[{
 "The valid output variables specified in ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "582c2e73-e750-4e57-9faa-813561a293fe"],
 " are many an varied.  The ",
 StyleBox["ALLPROPSdll",
  FontFamily->"Courier New",
  FontWeight->"Normal"],
 " should be consulted in the ",
 StyleBox[ButtonBox["NIST REFPROP Online DLL Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://refprop-docs.readthedocs.io/en/latest/DLL/index.html"], 
    None}],
  FontWeight->"Bold"],
 "  for the complete list of valid output variables. "
}], "Text",
 CellChangeTimes->{{3.82281538966815*^9, 3.822815496475485*^9}, {
  3.8303356636945314`*^9, 3.8303356643193245`*^9}, {3.8303357324805994`*^9, 
  3.83033581802258*^9}},
 CellID->632653306,ExpressionUUID->"3a40f4bb-5520-4896-a70f-b3cd4bd6dbf4"],

Cell[CellGroupData[{

Cell["Properties of water at 72\[Degree]F and 1 atm", "MathCaption",
 CellChangeTimes->{{3.822814569388122*^9, 3.8228146018602657`*^9}},
 CellID->148081773,ExpressionUUID->"a33f8fe1-510c-4634-beae-ac425310c95d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<water\>\"", ",", "\"\<TP\>\"", ",", "\"\<D H S Cp W\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"1", "atm"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8228146124469585`*^9, 3.822814648915411*^9}, {
  3.822814685179415*^9, 3.8228147191236267`*^9}},
 CellLabel->"In[29]:=",
 CellID->209953228,ExpressionUUID->"cd5f314c-c5b2-4f2e-96df-2bd0923d2aad"],

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\<\"water\"\>", ",", "\<\"TP\"\>", ",", "\<\"D H S Cp W\"\>", ",", 
   RowBox[{"72", " ", "\[Degree]F"}], ",", "atm"}], "]"}]], "Output",
 CellChangeTimes->{3.82281472178351*^9, 3.822856549667742*^9, 
  3.822870267762495*^9, 3.822870603051759*^9, 3.82287072283241*^9, 
  3.822870935150522*^9, 3.8303277142638655`*^9},
 CellLabel->"Out[29]=",
 CellID->467002382,ExpressionUUID->"23ea8748-bb04-4b74-9507-c2e1e4db4413"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Properties of water at 1 atm and 300\[Degree]F - above the boiling point\
\[LineSeparator](NOTE: inputs are in reverse order for demonstration purposes)\
\>", "MathCaption",
 CellChangeTimes->{{3.8228147524484634`*^9, 3.8228148572591553`*^9}, {
  3.8303358497107224`*^9, 3.8303358553982944`*^9}},
 CellID->717828542,ExpressionUUID->"95c16630-7ef3-4f9f-8db9-c019600f78c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<PT\>\"", ",", "\"\<D H S Cp W\>\"", ",", 
   RowBox[{"1", "atm"}], ",", 
   RowBox[{"300", "\[Degree]F"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.822814918013625*^9, 3.8228149496520305`*^9}, 
   3.822815748427576*^9},
 CellLabel->"In[30]:=",
 CellID->23378095,ExpressionUUID->"036df9ea-1c06-40d7-b6bb-f29d5662288a"],

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\<\"PT\"\>", ",", "\<\"D H S Cp W\"\>", ",", "atm", ",", 
   RowBox[{"300", " ", "\[Degree]F"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.8228149331461787`*^9, 3.822814951094178*^9}, 
   3.822815751824495*^9, 3.8228565546194983`*^9, 3.822870272067952*^9, 
   3.8228706083346295`*^9, 3.8228707268137674`*^9, 3.822870938519517*^9, 
   3.83032771436357*^9},
 CellLabel->"Out[30]=",
 CellID->155917062,ExpressionUUID->"5d7375b2-5ecd-49ae-9262-53c000b24c43"]
}, Open  ]]
}, Open  ]],

Cell["\<\
The numeric inputs can be passed in as explicit quantities, as above, or \
through the use of variables from other calculations.\
\>", "Text",
 CellChangeTimes->{{3.822815572595873*^9, 3.822815649155101*^9}},
 CellID->355884447,ExpressionUUID->"83817569-d5a0-465e-a1f0-d6bca438c76a"],

Cell[CellGroupData[{

Cell["Properties of water at 150\[Degree]F - in the two-phase region", \
"MathCaption",
 CellChangeTimes->{{3.822815683637841*^9, 3.8228157038907003`*^9}, {
  3.822856229461792*^9, 3.822856307029299*^9}},
 CellID->128333610,ExpressionUUID->"f05bfb88-869c-4b50-9426-00e6338798f4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"150", "\[Degree]F"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["P", "sat"], ",", 
    SubscriptBox["D", "L"], ",", 
    SubscriptBox["D", "V"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<Tsat\>\"", ",", "\"\<P Dliq Dvap\>\"", ",", "T", ",", "0"}], 
    "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8228565725944214`*^9, 3.822856661477714*^9}, {
  3.822856748142881*^9, 3.8228567519178133`*^9}, {3.8228703007462454`*^9, 
  3.8228703120260754`*^9}, {3.822870743890059*^9, 3.822870758001315*^9}, {
  3.8228709493614883`*^9, 3.8228709495779057`*^9}},
 CellLabel->"In[31]:=",
 CellID->666810498,ExpressionUUID->"0ea5c436-1cf8-47a9-a3d1-30c9d522f6b2"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{RowBox[{\\\"RefProp\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"Tsat\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"P Dliq \
Dvap\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"150\\\", \\\" \\\", \\\"\[Degree]F\\\
\"}], \\\",\\\", \\\"0\\\"}], \\\"]\\\"}], \\\"\[LeftDoubleBracket]\\\", \
RowBox[{\\\"All\\\", \\\",\\\", \\\"2\\\"}], \
\\\"\[RightDoubleBracket]\\\"}]\\) is longer than depth of object.\"", 2, 32, 
   5, 33616104989503615583, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8303277144662952`*^9},
 CellLabel->"During evaluation of In[31]:=",
 CellID->459199134,ExpressionUUID->"3a1d647b-fc70-434a-9c5d-3dbedba3ebe9"],

Cell[BoxData[
 TemplateBox[{
  "Set", "shape", 
   "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{SubscriptBox[\\\"P\\\", \
\\\"sat\\\"], \\\",\\\", SubscriptBox[\\\"D\\\", \\\"L\\\"], \\\",\\\", \
SubscriptBox[\\\"D\\\", \\\"V\\\"]}], \\\"}\\\"}]\\) and \
\\!\\(\\*RowBox[{RowBox[{\\\"RefProp\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"Tsat\
\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"P Dliq Dvap\\\\\\\"\\\", \\\",\\\", \
RowBox[{\\\"150\\\", \\\" \\\", \\\"\[Degree]F\\\"}], \\\",\\\", \\\"0\\\"}], \
\\\"]\\\"}], \\\"\[LeftDoubleBracket]\\\", RowBox[{\\\"All\\\", \\\",\\\", \\\
\"2\\\"}], \\\"\[RightDoubleBracket]\\\"}]\\) are not the same shape.\"", 2, 
   32, 6, 33616104989503615583, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8303277144802585`*^9},
 CellLabel->"During evaluation of In[31]:=",
 CellID->40404627,ExpressionUUID->"885cc0d0-94a7-4913-956f-b3ec150a07ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\<\"Tsat\"\>", ",", "\<\"P Dliq Dvap\"\>", ",", 
    RowBox[{"150", " ", "\[Degree]F"}], ",", "0"}], "]"}], 
  "\[LeftDoubleBracket]", 
  RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]], "Output",
 CellChangeTimes->{{3.8228566492194724`*^9, 3.822856662507929*^9}, 
   3.822856752917149*^9, {3.8228702775393476`*^9, 3.822870313023408*^9}, 
   3.8228706269638014`*^9, {3.822870748067912*^9, 3.822870761480011*^9}, {
   3.822870945394124*^9, 3.8228709512195425`*^9}, 3.830327714494221*^9},
 CellLabel->"Out[32]=",
 CellID->301935855,ExpressionUUID->"32b19c5d-1eb5-4199-a746-45526e72fb2a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["D", 
   RowBox[{"2", "\[Phi]"}]], "=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"0.5", "/", 
      SubscriptBox["D", "L"]}], "+", 
     RowBox[{"0.5", "/", 
      SubscriptBox["D", "V"]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.8228566712974477`*^9, 3.8228567099979353`*^9}},
 CellLabel->"In[33]:=",
 CellID->540729299,ExpressionUUID->"07afcf17-de27-4921-9ec7-5cbfeeb4f486"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   FractionBox["0.5`", 
    SubscriptBox["D", "L"]], "+", 
   FractionBox["0.5`", 
    SubscriptBox["D", "V"]]}]]], "Output",
 CellChangeTimes->{{3.822856734693853*^9, 3.8228567559949026`*^9}, 
   3.8228703547687893`*^9, 3.822870782269434*^9, 3.822870955825223*^9, 
   3.8303277146208816`*^9},
 CellLabel->"Out[33]=",
 CellID->148436603,ExpressionUUID->"7fe6188c-0337-48af-a9ef-ae9b8379a1da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TD\>\"", ",", "\"\<P H S Cp W QMOLE\>\"", ",", "T", ",", 
   SubscriptBox["D", 
    RowBox[{"2", "\[Phi]"}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.8228567844058886`*^9, 3.8228568053887663`*^9}, {
  3.8293748116637945`*^9, 3.829374815546386*^9}},
 CellLabel->"In[34]:=",
 CellID->705540555,ExpressionUUID->"d095404e-49df-490b-a33d-87ca164877c3"],

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\<\"TD\"\>", ",", "\<\"P H S Cp W QMOLE\"\>", ",", 
   RowBox[{"150", " ", "\[Degree]F"}], ",", 
   FractionBox["1", 
    RowBox[{
     FractionBox["0.5`", 
      SubscriptBox["D", "L"]], "+", 
     FractionBox["0.5`", 
      SubscriptBox["D", "V"]]}]]}], "]"}]], "Output",
 CellChangeTimes->{3.822856811839512*^9, 3.822870360712887*^9, 
  3.822870786333535*^9, 3.8228709610662055`*^9, 3.8303277147265987`*^9},
 CellLabel->"Out[34]=",
 CellID->233850251,ExpressionUUID->"45ff4154-4d7c-41c9-b9d9-494190f1680b"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Consult the ",
 StyleBox[ButtonBox["RefProp",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/ref/RefProp"],
  FontWeight->"Bold"],
 ButtonBox[" reference page",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/ref/RefProp"],
 " for many more options that affect units, mixture behavior, and outputs."
}], "Text",
 CellChangeTimes->{{3.8228158476701164`*^9, 3.8228159426979337`*^9}, {
   3.822815974022194*^9, 3.822815974139835*^9}, {3.8293284471433773`*^9, 
   3.829328503901662*^9}, 3.8303358856937404`*^9},
 CellID->327181305,ExpressionUUID->"00f0dd55-1f64-43cc-889a-986fd86f5733"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Saturation Properties", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8228133353288345`*^9, 3.822813339468789*^9}},
 CellID->670941316,ExpressionUUID->"9f99f2e0-65e4-4d5c-b40d-987382ce79c3"],

Cell[TextData[{
 "When the fluid properties at the saturated liquid (bubble point) or \
saturated vapor (dew point) states along the boundaries of the two phase \
region are needed, the ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " function can be used to calculate the vapor/liquid densities at a given \
saturation pressure or temperature.   "
}], "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9, {3.822598982839508*^9, 3.8225990563618293`*^9}, {
   3.8225999774766903`*^9, 3.8226001513735666`*^9}, {3.82260181892393*^9, 
   3.822601896188301*^9}, {3.8226020409391065`*^9, 3.8226020451169634`*^9}, 
   3.822604849730685*^9, {3.8226051394487777`*^9, 3.82260515201713*^9}, {
   3.8226079297830935`*^9, 3.8226080916222224`*^9}, 3.8228136934041185`*^9, {
   3.8303359182778163`*^9, 3.830335972045268*^9}, {3.8303375294050765`*^9, 
   3.83033758811629*^9}},
 CellID->67387048,ExpressionUUID->"09eb9049-04bf-421d-bd01-eab9e4352e59"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"RefProp", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", 
      StyleBox["hIn", "TI"], ",", 
      StyleBox["hOut", "TI"], ",", 
      StyleBox["a", "TI"], ",", 
      StyleBox["b", "TI"]}], "]"}], Cell["\<\
Perform a Refprop calculation after loading the fluid file specified in the \
hFLD string parameter \
\>", "TableText",ExpressionUUID->"9571ca12-d78d-4dde-be42-a4937d8d48fc"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822766385400005*^9, 3.8227664730395956`*^9}, {
   3.8227665496317625`*^9, 3.8227666986382475`*^9}, {3.8228032170064373`*^9, 
   3.8228032170253863`*^9}, 3.822813654173045*^9, 3.8228138358461*^9, 
   3.8310958009657555`*^9},
 CellID->397827467,ExpressionUUID->"b39783cb-a3c1-4b8f-8aa5-d36af9a25c47"],

Cell["RefProp for calculating saturation properties.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.822813407092914*^9, 3.8228134349154997`*^9}, {
  3.8292817153389297`*^9, 3.8292817183788366`*^9}},
 CellID->176994474,ExpressionUUID->"c58dca3c-c16c-4c26-b996-75dfd373c7e1"],

Cell["\<\
There are two ways to get the saturation properties.  The first is to use \
input pairs that include the vapor quality, Q.  Setting Q to 0 will return \
values along the saturated liquid curve (no vapor).  Conversely, setting Q to \
1 will return values along the saturated vapor curve (100% vapor).\
\>", "Text",
 CellChangeTimes->{{3.8228203772151947`*^9, 3.8228205701182365`*^9}},
 CellID->307684685,ExpressionUUID->"7e4094e8-453d-4a1c-bab0-6520876507e0"],

Cell["\<\
Q can be paired with either temperature, T, or pressure, P, and either value \
must be between the triple point and the critical point.\
\>", "Text",
 CellChangeTimes->{{3.8228205792627783`*^9, 3.8228206244628515`*^9}},
 CellID->156526136,ExpressionUUID->"ada206ca-f4c1-43c2-a157-1d777e2cd74b"],

Cell[CellGroupData[{

Cell["Saturated Liquid properties using TQ inputs with Q = 0", "MathCaption",
 CellChangeTimes->{{3.8228206362633176`*^9, 3.8228206590792913`*^9}, {
  3.8228208816130657`*^9, 3.8228208858696966`*^9}},
 CellID->45396662,ExpressionUUID->"b7c3cae4-49e3-44a3-ba58-c78d6bc163a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TQ\>\"", ",", "\"\<P D H S Cp W\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.8228206704598236`*^9, 3.8228207024582386`*^9}, {
  3.8228207862710934`*^9, 3.822820825806347*^9}, {3.8228209127597437`*^9, 
  3.8228209297503276`*^9}},
 CellLabel->"In[44]:=",
 CellID->426401788,ExpressionUUID->"82d0ba7f-298b-49f6-8bad-ea76b0ba138c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"P\"\>", "\[Rule]", 
    TemplateBox[{
     "2.6814149720049305`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D\"\>", "\[Rule]", 
    TemplateBox[{"55.37957643495781`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"1679.2288268248424`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"5.910407226482988`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CP\"\>", "\[Rule]", 
    TemplateBox[{"75.35706147142979`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"1488.806722913783`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.82282082038083*^9, 3.8228208292301598`*^9}, 
   3.822820931332074*^9, 3.8228703944795375`*^9, 3.8303277148293247`*^9, 
   3.830346998805213*^9},
 CellLabel->"Out[44]=",
 CellID->90383662,ExpressionUUID->"fda5025b-e841-4c3b-9ea4-127cffe156ac"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Saturated Vapor properties using TQ inputs with Q = 1", "MathCaption",
 CellChangeTimes->{{3.8228208606870503`*^9, 3.8228208774302397`*^9}},
 CellID->412271278,ExpressionUUID->"8386a1a5-069b-454b-a893-65f0658406ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TQ\>\"", ",", "\"\<P D H S Cp W\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.822820940769826*^9, 3.822820944726277*^9}, 
   3.8228704246907597`*^9},
 CellLabel->"In[45]:=",
 CellID->32593211,ExpressionUUID->"a183a1fd-8517-49f6-aff9-4fb6fcf718ba"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"P\"\>", "\[Rule]", 
    TemplateBox[{
     "2.6814148481958044`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D\"\>", "\[Rule]", 
    TemplateBox[{"0.0010934653025912293`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"45785.2471535246`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"155.23392179014274`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CP\"\>", "\[Rule]", 
    TemplateBox[{"34.382189799421155`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"424.7160512574923`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8228208920571165`*^9, 3.822820946113561*^9, {3.822870399541007*^9, 
   3.822870426598628*^9}, 3.8303277149320498`*^9, 3.8303470029498916`*^9},
 CellLabel->"Out[45]=",
 CellID->41495060,ExpressionUUID->"eb4b2aef-5fec-4396-8e88-3ab26b661b1e"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Calculating the saturation pressure (as above) and using it for PQ inputs \
will yield the same results. \
\>", "Text",
 CellChangeTimes->{{3.8228210073986416`*^9, 3.822821071973923*^9}},
 CellID->883401183,ExpressionUUID->"0c23a688-b73d-4674-a750-a52c680d4d3f"],

Cell[CellGroupData[{

Cell["\<\
Saturated Liquid and Vapor properties using PQ inputs at the saturation \
pressure\
\>", "MathCaption",
 CellChangeTimes->{{3.822821089990732*^9, 3.822821122013055*^9}},
 CellID->321684491,ExpressionUUID->"7115b622-01e7-48f1-bd35-74cd6c904aee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Psat", "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TQ\>\"", ",", "\"\<P\>\"", ",", 
     RowBox[{"72", "\[Degree]F"}], ",", "0"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8228211263065696`*^9, 3.822821166917976*^9}},
 CellLabel->"In[46]:=",
 CellID->170853062,ExpressionUUID->"8c0ec963-4ce4-444c-923d-a66dcb0309b9"],

Cell[BoxData[
 TemplateBox[{
  "2.6814149720049305`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.822821174210453*^9, 3.8303277150447483`*^9, 
  3.8303470162851152`*^9},
 CellLabel->"Out[46]=",
 CellID->69438505,ExpressionUUID->"4705c02e-1bd0-42cc-8ae5-5ebfbd228fcb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<PQ\>\"", ",", "\"\<T D H S Cp W\>\"", ",", "Psat", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8228211783932533`*^9, 3.8228212052943306`*^9}},
 CellLabel->"In[47]:=",
 CellID->135943329,ExpressionUUID->"a6b4e4bf-8c43-4192-b8f5-ee3569b3844e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"T\"\>", "\[Rule]", 
    TemplateBox[{"295.3722229804787`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D\"\>", "\[Rule]", 
    TemplateBox[{"55.37957642531289`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"1679.2288839659482`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"5.9104074199338426`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CP\"\>", "\[Rule]", 
    TemplateBox[{"75.35706146371209`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"1488.806725106278`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.822821209723455*^9, 3.830327715143487*^9, 
  3.8303470208105316`*^9},
 CellLabel->"Out[47]=",
 CellID->4982075,ExpressionUUID->"d2a4163f-fba8-4083-9a6d-add59e64ed3f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<PQ\>\"", ",", "\"\<T D H S Cp W\>\"", ",", "Psat", ",", "1"}], 
  "]"}]], "Input",
 CellChangeTimes->{3.82282126158175*^9},
 CellLabel->"In[48]:=",
 CellID->291094404,ExpressionUUID->"f78b0be8-9f36-4731-959c-1df0e818faf4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"T\"\>", "\[Rule]", 
    TemplateBox[{"295.3722229804787`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D\"\>", "\[Rule]", 
    TemplateBox[{"0.0010934653503200983`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"45785.247178314654`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"155.2339214907364`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CP\"\>", "\[Rule]", 
    TemplateBox[{"34.38218981556422`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"424.71605178045417`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.822821268512212*^9, 3.8303277152452116`*^9, 
  3.830347025744995*^9},
 CellLabel->"Out[48]=",
 CellID->32733873,ExpressionUUID->"9b118aa3-1fcb-44e6-bed1-6902afd42e06"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Alternatively, there are shortcut input strings, \"Tsat\" and \"Psat\" that \
allow the saturation Temperature or Pressure to be passed in numerical input ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "fa637913-0153-422d-96fd-3c92ff251a4a"],
 " only, and ignoring the value passed in ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "43fb589a-ba0b-4624-9389-c58c2f0eaf2f"],
 "."
}], "Text",
 CellChangeTimes->{{3.822821284910383*^9, 3.822821289949874*^9}, {
  3.8228214901584034`*^9, 3.822821640878273*^9}},
 CellID->754813309,ExpressionUUID->"3f939d36-6739-4d38-98b0-e650a43521df"],

Cell["\<\
Return properties can then use the suffix \"*vap\" or \"liq\" to specify the \
desired state.\
\>", "Text",
 CellChangeTimes->{{3.822821671470448*^9, 3.8228217348848066`*^9}},
 CellID->91718770,ExpressionUUID->"1d13cd7c-495a-4ff1-9fd6-494e50574d78"],

Cell[CellGroupData[{

Cell["Saturated Liquid properties using \"Tsat\" input.", "MathCaption",
 CellChangeTimes->{{3.82282174659053*^9, 3.8228217743103533`*^9}, {
  3.830347067677289*^9, 3.8303470708926654`*^9}},
 CellID->130551063,ExpressionUUID->"6aedb194-c8e3-42a5-9bdc-fc1db7aedfa8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<Tsat\>\"", ",", "\"\<P Dliq Hliq Sliq Cpliq Wliq\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.822821794157298*^9, 3.822821909533699*^9}},
 CellLabel->"In[49]:=",
 CellID->297921912,ExpressionUUID->"ef8a2060-a5b8-4768-be86-492022e43b26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"P\"\>", "\[Rule]", 
    TemplateBox[{
     "2.6814149720049305`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"DLIQ\"\>", "\[Rule]", 
    TemplateBox[{"55.37957643495781`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"HLIQ\"\>", "\[Rule]", 
    TemplateBox[{"1679.2288268248424`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"SLIQ\"\>", "\[Rule]", 
    TemplateBox[{"5.910407226482988`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CPLIQ\"\>", "\[Rule]", 
    TemplateBox[{"75.35706147142979`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"WLIQ\"\>", "\[Rule]", 
    TemplateBox[{"1488.806722913783`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.82282186426575*^9, 3.8228219124548583`*^9, 
  3.830327715348934*^9, 3.8303470531916184`*^9},
 CellLabel->"Out[49]=",
 CellID->108081894,ExpressionUUID->"e5845e74-416e-4ce2-841c-d055a5daf5c8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Saturated Vapor properties using \"Tsat\" input.", "MathCaption",
 CellChangeTimes->{{3.82282174659053*^9, 3.8228217743103533`*^9}, {
  3.822821964556531*^9, 3.8228219655588207`*^9}, {3.83034707599759*^9, 
  3.830347078469968*^9}},
 CellID->512203755,ExpressionUUID->"737f9866-f84f-4eda-8d3e-41cc86ee2f47"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<Tsat\>\"", ",", "\"\<P Dvap Hvap Svap Cpvap Wvap\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.822821794157298*^9, 3.822821909533699*^9}, {
  3.8228219768227224`*^9, 3.8228219988856826`*^9}},
 CellLabel->"In[50]:=",
 CellID->44449778,ExpressionUUID->"9f5ef3eb-27a6-425d-830f-8dde7b70bdf4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"P\"\>", "\[Rule]", 
    TemplateBox[{
     "2.6814149720049305`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"DVAP\"\>", "\[Rule]", 
    TemplateBox[{"0.0010934653025912293`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"HVAP\"\>", "\[Rule]", 
    TemplateBox[{"45785.2471535246`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"SVAP\"\>", "\[Rule]", 
    TemplateBox[{"155.23392179014274`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CPVAP\"\>", "\[Rule]", 
    TemplateBox[{"34.382189799421155`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"WVAP\"\>", "\[Rule]", 
    TemplateBox[{"424.7160512574923`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.82282186426575*^9, 3.8228219124548583`*^9, 
  3.822822002969758*^9, 3.8303277154476705`*^9, 3.8303470588389435`*^9},
 CellLabel->"Out[50]=",
 CellID->553083132,ExpressionUUID->"f360e609-6d43-4032-9810-442ba1295cb1"]
}, Open  ]]
}, Open  ]],

Cell["\<\
This shorthand notation can be very handy when needing both the saturated \
liquid and saturated vapor quantities at the same time, from the same call.\
\>", "Text",
 CellChangeTimes->{{3.822822020845972*^9, 3.8228220642228346`*^9}, 
   3.822822172461351*^9},
 CellID->88688607,ExpressionUUID->"81d03386-76a8-4ea5-afff-1c782134f683"],

Cell[CellGroupData[{

Cell["\<\
Saturated Vapor and Liquid properties at the same time using Tsat input.\
\>", "MathCaption",
 CellChangeTimes->{{3.82282174659053*^9, 3.8228217743103533`*^9}, {
  3.822821964556531*^9, 3.8228219655588207`*^9}, {3.822822116268662*^9, 
  3.822822126308795*^9}},
 CellID->467178884,ExpressionUUID->"f5b1ff7c-fdef-4091-8bc8-ff9df8558e4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<Tsat\>\"", ",", "\"\<P Dliq Dvap\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.822821794157298*^9, 3.822821909533699*^9}, {
  3.8228219768227224`*^9, 3.8228219988856826`*^9}, {3.822822141236877*^9, 
  3.822822147548991*^9}},
 CellLabel->"In[51]:=",
 CellID->161737654,ExpressionUUID->"80afaf01-7ec8-45fc-85d8-de43a393681a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"P\"\>", "\[Rule]", 
    TemplateBox[{
     "2.6814149720049305`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"DLIQ\"\>", "\[Rule]", 
    TemplateBox[{"55.37957643495781`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"DVAP\"\>", "\[Rule]", 
    TemplateBox[{"0.0010934653025912293`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.82282186426575*^9, 3.8228219124548583`*^9, 
  3.822822002969758*^9, 3.8228221544704485`*^9, 3.8303277155464067`*^9, 
  3.8303470928998327`*^9},
 CellLabel->"Out[51]=",
 CellID->855045217,ExpressionUUID->"6bcec827-007f-41c1-9c5f-b67f7e548757"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Single Phase Properties", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.822822218789443*^9, 3.8228222236454544`*^9}},
 CellID->465795248,ExpressionUUID->"f82967f0-dd7c-4ce1-8aec-e4616810ee62"],

Cell[TextData[{
 "When it is known that the state point is in a single phase region (either \
vapor or liquid), there are flags that can be placed on the input pair string \
to ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " to speed up the calculations and/or improve convergence."
}], "Text",
 CellChangeTimes->{{3.822822250413862*^9, 3.8228223529495845`*^9}, {
  3.830358704044489*^9, 3.830358781268263*^9}},
 CellID->258668859,ExpressionUUID->"39800329-1199-43dd-8dd0-0869d2ffef7c"],

Cell["\<\
Normally, the ABFLSH routine is called internally to determine the phase of \
the inputs (liquid, vapor, or 2-phase), and then the appropriate iterative \
routine will be called to obtain the independent properties of the equations \
of state: temperature and density.  For subsequent calculations for \
properties that are in the single phase, use the code AB&, where the symbol & \
indicates the single phase state. The time required with the use of AB& is \
negligible, compared to that required for the iterative solution called by \
ABFLSH.\
\>", "Text",
 CellChangeTimes->{{3.8228223673650475`*^9, 3.8228223707968693`*^9}, {
  3.82282243796319*^9, 3.822822459268238*^9}, {3.8228224908996034`*^9, 
  3.8228224916845317`*^9}, {3.8228227089094925`*^9, 3.8228227175404053`*^9}, {
  3.8228227544596863`*^9, 3.822822768963893*^9}, {3.8228298739125447`*^9, 
  3.8228298783576527`*^9}},
 CellID->133424027,ExpressionUUID->"53f247e7-05cd-4736-b320-c1b8348320f1"],

Cell["\<\
Unfortunately, while this convention still works, speed tests of the \
RefpropLink implementation show no difference in speed from using the general \
call parameter.\
\>", "Text",
 CellChangeTimes->{{3.822834754129918*^9, 3.822834849904751*^9}, {
  3.8303592670453224`*^9, 3.830359276739024*^9}},
 CellID->395914649,ExpressionUUID->"dccaad6d-ff77-4098-996d-0c5dd14c1942"],

Cell[CellGroupData[{

Cell["Known liquid state for water", "MathCaption",
 CellChangeTimes->{{3.822822636037401*^9, 3.8228226446932487`*^9}},
 CellID->98122627,ExpressionUUID->"6ed616b2-f042-4014-a39c-f7849cf54ffc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"72", "\[Degree]F"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["D", "1"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TP&\>\"", ",", "\"\<D\>\"", ",", "T", ",", "P"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.822822648239791*^9, 3.8228226785407457`*^9}, {
   3.822830126133462*^9, 3.8228301388155384`*^9}, {3.8228302803898697`*^9, 
   3.82283034931751*^9}, {3.8228303989178424`*^9, 3.8228304141899996`*^9}, {
   3.8228306636058826`*^9, 3.822830663653753*^9}, {3.822831054759633*^9, 
   3.8228311109084854`*^9}, 3.8228313921572247`*^9, 3.8228316153009386`*^9, 
   3.822834726778105*^9, {3.8228406323974867`*^9, 3.822840632508189*^9}},
 CellLabel->"In[57]:=",
 CellID->112997547,ExpressionUUID->"c66f41b8-52fa-4194-bdb0-ba26c18add3b"],

Cell[BoxData[
 TemplateBox[{"55.38206688848727`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.822830295327914*^9, 3.8228303516053877`*^9, 3.822830453965577*^9, 
   3.822830528139185*^9, 3.8228306655925393`*^9, 3.8228307067763844`*^9, {
   3.8228310997483015`*^9, 3.8228311122239532`*^9}, 3.8228312738496327`*^9, 
   3.822831395725651*^9, 3.8228316164767637`*^9, 3.8228347465392447`*^9, 
   3.8228406358831325`*^9, 3.830327715689025*^9, 3.8303471739226933`*^9, 
   3.8303592962641525`*^9},
 CellLabel->"Out[59]=",
 CellID->148549893,ExpressionUUID->"9f3a2d07-655c-4c0d-9fc2-9f62907873b6"]
}, Open  ]]
}, Open  ]],

Cell["\<\
There are two flags, however, that are more useful in RefpropLink.\
\>", "Text",
 CellChangeTimes->{{3.8228350303142357`*^9, 3.82283506836945*^9}},
 CellID->455957052,ExpressionUUID->"b8964562-9cc4-41d2-9894-b6052592fb26"],

Cell[TextData[{
 StyleBox["**>", "BulletedText",
  FontWeight->"Bold"],
 StyleBox[" or ", "BulletedText"],
 StyleBox["**L", "BulletedText",
  FontWeight->"Bold"],
 StyleBox[" : When the greater than \">\" character or the letter \"L\" is \
appended to the two letters that specify the input properties (such as \
\"TP\"), the routine will assume that the input properties are in the single \
phase ", "BulletedText"],
 StyleBox["liquid", "BulletedText",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 StyleBox[" region, or are within the two-phase area as a ", "BulletedText"],
 StyleBox["metastable state", "BulletedText",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 StyleBox[". For example: \"TP>\", \"PH>\", \"HSL\".  To remember the greater \
than symbol, \">\", think \"above the T-P saturation curve\", which is the \
liquid region.", "BulletedText"]
}], "BulletedText",
 CellChangeTimes->{{3.822837843311191*^9, 3.822837895442724*^9}, {
  3.8228380648227205`*^9, 3.8228380728382745`*^9}, {3.8228381049743204`*^9, 
  3.8228382678297296`*^9}, {3.8228383425997124`*^9, 3.822838349230008*^9}, {
  3.8228417275547767`*^9, 3.8228417284912663`*^9}},
 CellID->132058655,ExpressionUUID->"fd1df168-aff2-4a74-bdd0-af9d7106985f"],

Cell[TextData[{
 StyleBox["**<", "BulletedText",
  FontWeight->"Bold"],
 StyleBox[" or ", "BulletedText"],
 StyleBox["**V", "BulletedText",
  FontWeight->"Bold"],
 StyleBox[" : When the less than \"<\" character or the letter \"V\" is \
appended to the two letters that specify the input properties (such as \
\"TP\"), the routine will assume that the input properties are in the single \
phase ", "BulletedText"],
 StyleBox["vapor", "BulletedText",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 StyleBox[" region, or are within the two-phase area as a ", "BulletedText"],
 StyleBox["metastable state", "BulletedText",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 StyleBox[". For example: TP>, PH>, HSL.  For example: \"TP<\", \"PH<\", \
\"HSV\".  To remember the less than symbol, \"<\", think \"below the T-P \
saturation curve\", which is the vapor region.", "BulletedText"]
}], "BulletedText",
 CellChangeTimes->{{3.822837843311191*^9, 3.822837895442724*^9}, {
  3.8228380648227205`*^9, 3.8228380901190453`*^9}, {3.822838300136289*^9, 
  3.8228383964058266`*^9}, {3.8228416423077497`*^9, 3.8228417374841805`*^9}},
 CellID->983206561,ExpressionUUID->"d5efe7e9-7655-4445-a9fc-ee5d6f4513db"],

Cell[CellGroupData[{

Cell["Grab a state point that is just below the bubble point.", "MathCaption",
 CellChangeTimes->{{3.822840575941487*^9, 3.8228406111742215`*^9}},
 CellID->678569810,ExpressionUUID->"6d92873d-ccbf-444b-bd6f-bdca2dcba81e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Psat", ",", 
     SubscriptBox["D", "L"], ",", 
     SubscriptBox["D", "V"]}], "}"}], "=", 
   RowBox[{
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<Tsat\>\"", ",", "\"\<P Dliq Dvap\>\"", ",", "T", ",", "0"}],
      "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["D", "ms"], "=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"0.99", "/", 
      SubscriptBox["D", "V"]}], "+", 
     RowBox[{"0.01", "/", 
      SubscriptBox["D", "L"]}]}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.822840624623278*^9, 3.822840846571636*^9}, {
  3.8228408838050165`*^9, 3.8228408906607075`*^9}, {3.82284095314857*^9, 
  3.8228409578440127`*^9}, {3.822841256444818*^9, 3.8228412591157026`*^9}, {
  3.822841316886157*^9, 3.8228413215656385`*^9}, {3.8228413626996465`*^9, 
  3.822841365139122*^9}, {3.8228414053715153`*^9, 3.822841408650744*^9}},
 CellLabel->"In[62]:=",
 CellID->1002380,ExpressionUUID->"48b2d79a-72df-4a59-85b3-7e9cd3e72c5a"],

Cell[BoxData[
 TemplateBox[{"0.00110451018637028`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.8228408645076303`*^9, 3.8228408935679026`*^9}, 
   3.822840962063697*^9, 3.822841274059703*^9, 3.8228413264176607`*^9, 
   3.822841411592843*^9, 3.830327715812694*^9, 3.8303471815152493`*^9, 
   3.8304114346146317`*^9},
 CellLabel->"Out[63]=",
 CellID->97484319,ExpressionUUID->"b6c9a40f-a353-4838-88ce-7f9248d6b82d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["D", "L"], ",", 
   SubscriptBox["D", "V"]}], "}"}]], "Input",
 CellChangeTimes->{{3.8228412216319633`*^9, 3.8228412431394405`*^9}},
 CellLabel->"In[64]:=",
 CellID->300542000,ExpressionUUID->"c6dfa862-c9d8-4505-852a-12b338b0b2b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"55.37957643495781`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   TemplateBox[{"0.0010934653025912293`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8228412441068172`*^9, 3.822841415140354*^9, 
  3.83032771591143*^9, 3.830411438583046*^9},
 CellLabel->"Out[64]=",
 CellID->153016544,ExpressionUUID->"da4f5742-c741-458b-bef5-870de9a50b1d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculate the Saturation Enthalpy", "MathCaption",
 CellChangeTimes->{{3.822841007708646*^9, 3.8228410271725497`*^9}},
 CellID->206987323,ExpressionUUID->"067e39c5-da75-4002-b3d9-7f525066ebc8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<Tsat\>\"", ",", "\"\<Hvap\>\"", ",", "T", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.822841039919486*^9, 3.8228410624756804`*^9}, {
  3.8228413399564734`*^9, 3.8228413401559467`*^9}},
 CellLabel->"In[67]:=",
 CellID->182923923,ExpressionUUID->"2f596c2b-53d4-4aa5-9a8f-f9123d0ea7c2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"HVAP\"\>", "\[Rule]", 
   TemplateBox[{"45785.2471535246`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8228410639825974`*^9, 3.8228412797016125`*^9, 
  3.8228413418932686`*^9, 3.8228414189790864`*^9, 3.8303277160151515`*^9, 
  3.830411547062828*^9},
 CellLabel->"Out[67]=",
 CellID->696014133,ExpressionUUID->"31d9feab-e1ca-4a80-879a-e4d0a3079a35"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Calculate the two-phase Enthalpy (noticeably lower than Hvap).\
\>", "MathCaption",
 CellChangeTimes->{{3.822841069685345*^9, 3.8228410887244196`*^9}, {
  3.822841435586668*^9, 3.822841482251852*^9}},
 CellID->6463533,ExpressionUUID->"36afeb03-f732-46ba-bd21-29644c5bc9e0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TD\>\"", ",", "\"\<H\>\"", ",", "T", ",", 
   SubscriptBox["D", "ms"]}], "]"}]], "Input",
 CellChangeTimes->{{3.8228411075161858`*^9, 3.8228411313713846`*^9}},
 CellLabel->"In[68]:=",
 CellID->254967951,ExpressionUUID->"8ccc316b-a277-4430-bafd-aa4f84d143a3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", "\[Rule]", 
   TemplateBox[{"45344.18697025761`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{{3.822841120599197*^9, 3.8228411324235373`*^9}, 
   3.8228412841138105`*^9, {3.8228413560404396`*^9, 3.8228413688900595`*^9}, 
   3.822841422567523*^9, 3.8303277161178775`*^9, 3.8304115498692913`*^9},
 CellLabel->"Out[68]=",
 CellID->42467757,ExpressionUUID->"5976ba58-a9b5-4004-9d34-e0ed39008063"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Calculate the meta-stable Vapor Enthalpy (Still up near the saturated \
enthalpy)\
\>", "MathCaption",
 CellChangeTimes->{{3.822841149644477*^9, 3.822841166372761*^9}, {
  3.822841493715191*^9, 3.8228415368189306`*^9}},
 CellID->230626192,ExpressionUUID->"62cdd66c-cf4f-48ca-be13-3e3ac32e8a2e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TD<\>\"", ",", "\"\<H\>\"", ",", "T", ",", 
   SubscriptBox["D", "ms"]}], "]"}]], "Input",
 CellChangeTimes->{
  3.822841182268219*^9, {3.8228415191162553`*^9, 3.8228415198123884`*^9}},
 CellLabel->"In[69]:=",
 CellID->126311549,ExpressionUUID->"7e31c4d6-f88d-4714-a877-9d874f8e9d19"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", "\[Rule]", 
   TemplateBox[{"45784.966922564854`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8228411907305846`*^9, 3.822841287843834*^9, 
  3.822841389171812*^9, 3.822841427376626*^9, 3.8228415248987837`*^9, 
  3.8303277162196045`*^9, 3.8304115527226577`*^9},
 CellLabel->"Out[69]=",
 CellID->753715069,ExpressionUUID->"7d74f39d-cddf-48c3-9a98-c0afce0972a8"]
}, Open  ]]
}, Open  ]],

Cell["\<\
This flag has special meaning for the input pair TH and TE.  Inputs of \
Temperature and Enthalpy (or occasionally temperature and internal energy) \
generally have two valid states.  To obtain the root with the higher pressure \
(typically in the liquid region), use TH> or TE>, and for the lower pressure \
(typically in the two-phase region) use TH< or TE<.\
\>", "Text",
 CellChangeTimes->{{3.8228405551251693`*^9, 3.822840562508389*^9}, {
  3.82284175586704*^9, 3.8228418775465865`*^9}},
 CellID->3029519,ExpressionUUID->"e1376f1d-315b-4540-977b-16996c9454f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Two Phase Properties", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82305710368225*^9, 3.8230571116738462`*^9}, {
  3.8290246851634583`*^9, 3.8290246887957916`*^9}},
 CellID->328677578,ExpressionUUID->"485298ea-d112-4e88-b77b-f6e015a5ec5a"],

Cell[TextData[{
 "Unlike the Legacy API and single-phase ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " input parameter flags, there are no specialized commands or parameters \
dedicated for use when the state point is known to be in the two-phase (",
 StyleBox["2\[Phi]",
  FontWeight->"Bold"],
 ") region.  These calls are simply made using RefProp as specified above for \
general state-point property calculations, with a few exceptions."
}], "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9, {3.822598982839508*^9, 3.8225990563618293`*^9}, {
   3.8225999774766903`*^9, 3.8226001513735666`*^9}, {3.82260181892393*^9, 
   3.822601896188301*^9}, {3.8226020409391065`*^9, 3.8226020451169634`*^9}, 
   3.822604849730685*^9, {3.8226051394487777`*^9, 3.82260515201713*^9}, {
   3.8226085968775773`*^9, 3.822608819181978*^9}, {3.8303595806026926`*^9, 
   3.830359592490055*^9}, {3.8303597065785265`*^9, 3.8303597186981*^9}, {
   3.8303651640193586`*^9, 3.8303653373197556`*^9}, {3.8303655216498313`*^9, 
   3.830365529698247*^9}},
 CellID->284819056,ExpressionUUID->"ea5edeee-d2dc-4f65-af53-664aa8a19cfd"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"RefProp", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", 
      StyleBox["hIn", "TI"], ",", 
      StyleBox["hOut", "TI"], ",", 
      StyleBox["a", "TI"], ",", 
      StyleBox["b", "TI"]}], "]"}], Cell["\<\
Perform a Refprop calculation after loading the fluid file specified in the \
hFLD string parameter \
\>", "TableText",ExpressionUUID->"bd02b7dd-2a34-46c9-baf6-33d61b16c579"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822766385400005*^9, 3.8227664730395956`*^9}, {
   3.8227665496317625`*^9, 3.8227666986382475`*^9}, {3.8228032170064373`*^9, 
   3.8228032170253863`*^9}, 3.822813654173045*^9, 3.8228138358461*^9, 
   3.8310958110737467`*^9},
 CellID->399493404,ExpressionUUID->"70c422ae-5fb1-415d-a4c3-fa30336286bc"],

Cell["RefProp for calculating state point properties.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.822813407092914*^9, 3.8228134349154997`*^9}, {
  3.8228139316997485`*^9, 3.8228139354756517`*^9}},
 CellID->12475860,ExpressionUUID->"a0e4f171-f9b6-4e43-87ed-55a50a60bc60"],

Cell["\<\
As already mentioned, temperature-enthalpy state points can be dual valued, \
with one state point in the 2\[Phi] region.  Inputs of Temperature and \
Enthalpy (or occasionally temperature and internal energy) generally have two \
valid states.  To obtain the root with the higher pressure (typically in the \
liquid region), use TH> or TE>, and for the lower pressure (typically in the \
two-phase region) use TH< or TE<.\
\>", "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9, {3.822598982839508*^9, 3.8225990563618293`*^9}, {
   3.8225999774766903`*^9, 3.8226001513735666`*^9}, {3.82260181892393*^9, 
   3.822601896188301*^9}, {3.8226020409391065`*^9, 3.8226020451169634`*^9}, 
   3.822604849730685*^9, {3.8226051394487777`*^9, 3.82260515201713*^9}, {
   3.8226085968775773`*^9, 3.822608819181978*^9}, {3.8303595806026926`*^9, 
   3.830359592490055*^9}, {3.8303597065785265`*^9, 3.8303597186981*^9}, {
   3.8303651640193586`*^9, 3.830365335865647*^9}, {3.830365478177092*^9, 
   3.8303655096179967`*^9}, {3.8303655502742004`*^9, 3.83036555792972*^9}, {
   3.830365630321452*^9, 3.8303656370734215`*^9}},
 CellID->299353750,ExpressionUUID->"557194af-1237-4919-87c9-999f8459ae87"],

Cell["\<\
In the two phase region, it is often desirable to return the vapor quality, \
Q.  This quantity can be returned on a mole basis using \"QMOLE\" as the \
output string or on a mass basis using the output string \"QMASS\".  This \
quantity will report the fraction of vapor (Q) in equilibrium with the liquid \
state (1-Q).\
\>", "Text",
 CellChangeTimes->{{3.830365662498397*^9, 3.8303657209460306`*^9}, {
  3.830365791065443*^9, 3.830366009377391*^9}, {3.8304107418490143`*^9, 
  3.8304107420973225`*^9}},
 CellID->7577440,ExpressionUUID->"bafe35af-f0e5-451b-b621-b5732fb21520"],

Cell[CellGroupData[{

Cell["\<\
Calculate the vapor quality half way between the saturated liquid and vapor \
molar volumes (1/D).\
\>", "MathCaption",
 CellChangeTimes->{{3.8304108444664836`*^9, 3.8304108500176315`*^9}, {
  3.830410880648685*^9, 3.83041094196066*^9}},
 CellID->28876996,ExpressionUUID->"61dee4ca-8d9c-474c-82c7-88ab5bb44598"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["D", 
   RowBox[{"2", "\[Phi]"}]], "=", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"1", "/", 
        SubscriptBox["D", "L"]}], "+", 
       RowBox[{"1", "/", 
        SubscriptBox["D", "V"]}]}], ")"}]}], ")"}], 
   RowBox[{"-", "1"}]]}]], "Input",
 CellChangeTimes->{{3.830410960853116*^9, 3.830410989312978*^9}, {
  3.830411088832733*^9, 3.83041109899255*^9}, {3.830411453105194*^9, 
  3.8304114741598454`*^9}},
 CellLabel->"In[65]:=",
 CellID->130019471,ExpressionUUID->"7867fd48-67e7-4d15-916a-ad972bf194ae"],

Cell[BoxData[
 TemplateBox[{"0.0021868874252653457`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.830411101462941*^9, 3.830411477177763*^9},
 CellLabel->"Out[65]=",
 CellID->457416220,ExpressionUUID->"2b7025a7-229c-4160-99bf-c27474c7ad5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TD\>\"", ",", "\"\<QMOLE QMASS\>\"", ",", "T", ",", 
   SubscriptBox["D", 
    RowBox[{"2", "\[Phi]"}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.830411127496295*^9, 3.8304111384968634`*^9}, {
  3.830411372576602*^9, 3.830411376150072*^9}},
 CellLabel->"In[66]:=",
 CellID->2877668,ExpressionUUID->"5ebdeebf-dc6d-434d-99ba-eeb56c45dc3c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"QMOLE\"\>", "\[Rule]", "0.5`"}], ",", 
   RowBox[{"\<\"QMASS\"\>", "\[Rule]", "0.5`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8304114071760387`*^9, 3.830411498524655*^9},
 CellLabel->"Out[66]=",
 CellID->432025238,ExpressionUUID->"e266114d-8806-4e43-b17b-fbc7abe7ee58"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Note that ",
 StyleBox["for pure fluids, the mass-based and mole-based vapor qualities are \
identical",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " and can be used interchangeably; for fluid mixtures, this is not the case. \
 In the single-phase regions, \"QMASS\" and \"QMOLE\" will return very large \
negative numbers, which are meaningless."
}], "Text",
 CellChangeTimes->{{3.830411586065465*^9, 3.8304116780324287`*^9}, {
  3.8304119699913683`*^9, 3.830412015271203*^9}},
 CellID->2519180,ExpressionUUID->"92455a77-221a-4b0f-beed-c93da870fe53"],

Cell[TextData[{
 "NOTE: For mixtures in the 2\[Phi] region, there is an additional option on \
RefProp to return the equilibrium molar compositions in the vapor and liquid \
phase.  For pure fluids, the composition is always {1.0}, so this option will \
be discussed in the ",
 StyleBox[ButtonBox["Mixtures",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/tutorial/Mixtures"],
  FontWeight->"Bold"],
 " tutorial."
}], "Text",
 CellChangeTimes->{{3.8304116915173407`*^9, 3.830411843623413*^9}, {
  3.8304119239963903`*^9, 3.8304119242267733`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellID->401191305,ExpressionUUID->"005913a1-13d9-47a8-99be-174386099553"]
}, Open  ]],

Cell[CellGroupData[{

Cell["References", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8305999282782993`*^9, 3.830599930070475*^9}},
 CellID->776680,ExpressionUUID->"1ed9aafc-9213-4094-b3cb-2b7482c2bdb8"],

Cell["\<\
1. Eric W. Lemmon, Ian H. Bell, Marcia L. Huber, and Mark O. McLinden, \
REFPROP Documentation, Release 10.0, NIST, May 21, 2018.\
\>", "Text",
 CellChangeTimes->{{3.829459108114297*^9, 3.8294591288957357`*^9}, {
  3.830600083573577*^9, 3.8306000910286036`*^9}, {3.8306004432598104`*^9, 
  3.830600444300058*^9}},
 CellID->645428874,ExpressionUUID->"52c54004-6336-47fe-a557-58c9de7cb31a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "TutorialMoreAboutSection",
 CellChangeTimes->{{3.822806306523122*^9, 3.8228063099230003`*^9}, {
  3.822806920442379*^9, 3.8228069225058317`*^9}},
 CellID->23220180,ExpressionUUID->"6f671051-bb44-462e-b4f1-7f1a9d6b1f15"],

Cell[TextData[ButtonBox["RefpropLink Guide",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/guide/RefpropLink"]], "TutorialMoreAbout",
 CellChangeTimes->{{3.829554477265361*^9, 3.829554507471608*^9}},
 CellID->1567025153,ExpressionUUID->"1b9ff538-44de-4c36-be97-46c23ec016d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Tutorials", "RelatedTutorialsSection",
 CellID->415694126,ExpressionUUID->"567fa6eb-7830-4a11-823b-3f8874afbf31"],

Cell[TextData[ButtonBox["RefpropLink Overview",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/RefpropLinkOverview"]], "RelatedTutorials",
 CellChangeTimes->{{3.831186766631734*^9, 3.831186789799773*^9}},
 CellID->90776795,ExpressionUUID->"59ee5f81-b5ad-4b46-a1d6-36fb894b4a2b"],

Cell[TextData[ButtonBox["RefpropLink Implementation",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/Implementation"]], "RelatedTutorials",
 CellChangeTimes->{{3.8295561633470955`*^9, 3.8295561679617863`*^9}, {
  3.8295562342814484`*^9, 3.829556249907692*^9}},
 CellID->478075264,ExpressionUUID->"a04ad6fa-3d99-4d7e-b37a-bae0fd2dc976"],

Cell[TextData[ButtonBox["RefpropLink Units",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Units"]], "RelatedTutorials",
 CellChangeTimes->{{3.8228420033543987`*^9, 3.82284201491448*^9}, {
  3.8228714709076233`*^9, 3.8228714710672235`*^9}, {3.830412044782276*^9, 
  3.8304120659027786`*^9}, {3.8308362707733383`*^9, 3.8308362785535274`*^9}, {
  3.831187279120223*^9, 3.8311872818708572`*^9}},
 CellID->279695321,ExpressionUUID->"0be4a3f4-a1a0-4dec-b6c5-4fd821b1aed3"],

Cell[TextData[ButtonBox["Mixtures",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Mixtures"]], "RelatedTutorials",
 CellChangeTimes->{{3.8228419226289744`*^9, 3.8228419238986144`*^9}, {
  3.829400407827127*^9, 3.8294004080525236`*^9}},
 CellID->806871991,ExpressionUUID->"a91d43d5-c8f6-4f4a-b4bd-a2c06bc16675"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "RelatedTutorials",
 CellChangeTimes->{{3.822841983098548*^9, 3.8228419888272257`*^9}, {
  3.8228714575782757`*^9, 3.8228714577079287`*^9}},
 CellID->49967596,ExpressionUUID->"8b130c50-de72-40fc-9cfd-41e3294221d8"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "RelatedTutorials",
 CellChangeTimes->{{3.8228419929302816`*^9, 3.8228419992184305`*^9}, {
  3.829400423447365*^9, 3.8294004236587987`*^9}},
 CellID->92033378,ExpressionUUID->"0c50eb5c-6861-41ee-a2fd-63e1c063a1e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Online REFPROP Documentation", "TutorialRelatedLinksSection",
 CellChangeTimes->{{3.822806367806203*^9, 3.822806389892133*^9}, {
  3.8228064980109205`*^9, 3.8228064992197084`*^9}},
 CellID->415694148,ExpressionUUID->"1677f774-f233-4dc2-9637-b5e47a9aeca4"],

Cell[TextData[{
 ButtonBox["NIST REFPROP Online DLL Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://refprop-docs.readthedocs.io/en/latest/DLL/index.html"], 
    None}],
 " (Latest)"
}], "TutorialRelatedLinks",
 CellChangeTimes->{{3.822806424866588*^9, 3.8228064424275885`*^9}, {
  3.8228065132970552`*^9, 3.8228065135334373`*^9}},
 CellID->415694149,ExpressionUUID->"f8813e78-2d7b-4f87-a348-4c1261b8f4cb"],

Cell[TextData[{
 ButtonBox["NIST REFPROP PDF Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://trc.nist.gov/refprop/REFPROP.PDF"], None}],
 " (Latest)"
}], "TutorialRelatedLinks",
 CellChangeTimes->{{3.822806448179206*^9, 3.822806463970996*^9}, {
  3.8228065609226494`*^9, 3.822806561160042*^9}},
 CellID->648377487,ExpressionUUID->"967a2a8d-3213-460f-b231-1112b9c9d78f"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{700, 870},
WindowMargins->{{Automatic, 441}, {Automatic, 49}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TutorialPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"55e7c9e1-d831-492a-90a0-d0eb4c3766cf"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 22, "History",ExpressionUUID->"9c1a61d1-589f-4a81-b733-167660d50738",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 27, "CategorizationSection",ExpressionUUID->"27a2cd5e-56eb-4d27-854a-a05df2bd1e4c",
 CellID->1122911449],
Cell[1309, 41, 136, 2, 31, "Categorization",ExpressionUUID->"c7a058bb-9c8b-4081-b757-34d697aca319",
 CellID->686433507],
Cell[1448, 45, 139, 2, 31, "Categorization",ExpressionUUID->"8dd915b9-635a-446e-98aa-8a8857ca074f",
 CellID->605800465],
Cell[1590, 49, 136, 2, 31, "Categorization",ExpressionUUID->"6a3ad461-6f59-44a6-a513-7ddce5198834",
 CellID->468444828],
Cell[1729, 53, 131, 1, 31, "Categorization",ExpressionUUID->"82c735ad-b58c-4b5f-a7f4-36f9749a04ea"]
}, Closed]],
Cell[CellGroupData[{
Cell[1897, 59, 111, 1, 17, "KeywordsSection",ExpressionUUID->"87b7dc59-1444-4e91-bcf4-4155020ec7b1",
 CellID->1427428552],
Cell[2011, 62, 227, 3, 17, "Keywords",ExpressionUUID->"75d7db51-c351-4a59-9b4f-ba545a30a043",
 CellID->1251852827],
Cell[2241, 67, 169, 2, 17, "Keywords",ExpressionUUID->"0eba14b6-5e58-43f9-9881-ad9223b49879",
 CellID->236225652],
Cell[2413, 71, 171, 2, 17, "Keywords",ExpressionUUID->"d5d450d3-a242-47cc-b63d-60d0e046f740",
 CellID->536658192],
Cell[2587, 75, 172, 2, 17, "Keywords",ExpressionUUID->"c8a136f8-f928-4cb2-a318-9a8f54dae74f",
 CellID->198970734],
Cell[2762, 79, 170, 2, 17, "Keywords",ExpressionUUID->"f4fdca49-34a0-4a10-8196-4914243b9e58",
 CellID->627327796],
Cell[2935, 83, 172, 2, 17, "Keywords",ExpressionUUID->"78fdf52e-6248-4a0f-897a-a32c17b3844a",
 CellID->81429279],
Cell[3110, 87, 171, 2, 17, "Keywords",ExpressionUUID->"a20e7a8d-bef5-467e-a022-3cb7540aa168",
 CellID->616331511]
}, Closed]],
Cell[CellGroupData[{
Cell[3318, 94, 108, 1, 17, "DetailsSection",ExpressionUUID->"4028aec9-085f-40b4-80b6-e586bac82f9a",
 CellID->307771771],
Cell[3429, 97, 199, 3, 31, "Details",ExpressionUUID->"9c29f018-1fd4-420b-92df-e6fe8e412155",
 CellID->218895918],
Cell[3631, 102, 200, 3, 31, "Details",ExpressionUUID->"b9fcb94e-d2df-4599-91bf-dfdc09d14ca1",
 CellID->350963985],
Cell[3834, 107, 197, 3, 31, "Details",ExpressionUUID->"817e0f99-b221-4a2f-b2fc-f39f99cab49f",
 CellID->795871300],
Cell[4034, 112, 126, 2, 31, "Details",ExpressionUUID->"2070d27e-eefd-4939-8023-5d624ff71d89",
 CellID->199739161],
Cell[4163, 116, 115, 2, 31, "Details",ExpressionUUID->"b4e18d4e-3f19-48d9-a58b-e2a502695bb1",
 CellID->40625308],
Cell[4281, 120, 116, 2, 31, "Details",ExpressionUUID->"ec07f952-c820-4e02-b371-f82011c4cf6f",
 CellID->357121918],
Cell[4400, 124, 117, 2, 31, "Details",ExpressionUUID->"a197e162-d4d9-4f32-b2a4-b9c8f73c5cb5",
 CellID->35949532],
Cell[4520, 128, 133, 2, 31, "Details",ExpressionUUID->"dc06c13d-d4dc-4f5f-896a-bd0bc2a387f0",
 CellID->929432370],
Cell[4656, 132, 122, 2, 31, "Details",ExpressionUUID->"2af9ea73-d846-43c0-bd4d-636422a98cd4",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4815, 139, 147, 2, 105, "Title",ExpressionUUID->"bf24d7fd-590e-48c3-a385-10415dbed039",
 CellID->509267359],
Cell[4965, 143, 1483, 26, 111, "Text",ExpressionUUID->"944de537-a4a9-40d0-9189-b67d7ad652f4",
 CellID->1534169418],
Cell[6451, 171, 755, 14, 66, "Text",ExpressionUUID->"91ba4114-02f5-4129-ba00-83dcae0f51f1",
 CellID->72059017],
Cell[7209, 187, 586, 12, 36, "Text",ExpressionUUID->"95ad17d9-befc-464b-a5c0-f27f5a534f51",
 CellID->36100660],
Cell[7798, 201, 783, 18, 36, "Text",ExpressionUUID->"b0057339-dd29-4d4f-957b-0557ff15617f",
 CellID->189076469],
Cell[8584, 221, 692, 15, 36, "Text",ExpressionUUID->"4247f8b4-5549-4054-bc6c-5a62c98d39e7",
 CellID->203927537],
Cell[CellGroupData[{
Cell[9301, 240, 265, 4, 50, "Section",ExpressionUUID->"446855ec-2294-4053-af6d-b664debb148e",
 CellID->43322749],
Cell[9569, 246, 798, 20, 52, "Text",ExpressionUUID->"7d66f9b4-c360-40d0-a6ff-32fd06dda91a",
 CellID->573431709],
Cell[CellGroupData[{
Cell[10392, 270, 182, 2, 38, "MathCaption",ExpressionUUID->"96aed69d-5d86-4e5e-96dd-0d4150774653",
 CellID->279625114],
Cell[10577, 274, 197, 3, 25, "Input",ExpressionUUID->"1ca234e3-523f-4b70-ab91-8d57f53b8940",
 CellID->713385182]
}, Open  ]],
Cell[CellGroupData[{
Cell[10811, 282, 410, 9, 52, "MathCaption",ExpressionUUID->"6ad0cd35-aa2f-497c-a972-0f16bc0c144f",
 CellID->872464924],
Cell[CellGroupData[{
Cell[11246, 295, 174, 3, 25, "Input",ExpressionUUID->"513534e0-8fae-4a15-b52c-6437ff2b9474",
 CellID->68619680],
Cell[11423, 300, 591, 11, 32, "Print",ExpressionUUID->"1a052188-d561-4f56-b918-41a46def85dc",
 CellID->305347762]
}, Open  ]]
}, Open  ]],
Cell[12041, 315, 638, 12, 51, "Text",ExpressionUUID->"e4450b58-9363-4aa6-893e-463714532d33",
 CellID->86903750],
Cell[12682, 329, 733, 14, 81, "Text",ExpressionUUID->"16f29a8e-31b9-43fc-9bfc-925ca0fd795b",
 CellID->159972398]
}, Open  ]],
Cell[CellGroupData[{
Cell[13452, 348, 207, 3, 50, "Section",ExpressionUUID->"79552c8f-497f-4776-ba58-6a324d960ce6",
 CellID->44087500],
Cell[13662, 353, 980, 21, 75, "DefinitionBox",ExpressionUUID->"3724ed61-98bc-4078-bdbd-c3c9577b181b",
 CellID->2096742444],
Cell[14645, 376, 211, 2, 27, "Caption",ExpressionUUID->"7b4500fb-8a80-41c7-ad24-3eeb735c8e49",
 CellID->1891092685],
Cell[14859, 380, 1067, 20, 82, "Text",ExpressionUUID->"c95fe574-5682-41d0-b277-5b132223c1e9",
 CellID->9367822],
Cell[CellGroupData[{
Cell[15951, 404, 267, 3, 38, "MathCaption",ExpressionUUID->"b2732365-8678-49c7-a3cc-84e83d6e8524",
 CellID->836781195],
Cell[16221, 409, 1067, 24, 98, "Input",ExpressionUUID->"bb1f64ee-b488-4802-bae8-98002ee5c395",
 CellID->2058623809]
}, Open  ]],
Cell[17303, 436, 719, 16, 52, "Text",ExpressionUUID->"b52f8538-fe67-4701-8ff7-4966ebab1f5d",
 CellID->31667136],
Cell[CellGroupData[{
Cell[18047, 456, 199, 2, 38, "MathCaption",ExpressionUUID->"6af4ab8e-d223-47b7-9de3-5c6fa7f13f6e",
 CellID->745559432],
Cell[18249, 460, 250, 5, 25, "Input",ExpressionUUID->"91a41a29-9ce5-4ae6-8bf6-4c006cb938ad",
 CellID->625027908]
}, Open  ]],
Cell[CellGroupData[{
Cell[18536, 470, 237, 4, 38, "MathCaption",ExpressionUUID->"f44ad4c4-2471-41f8-bc2e-a6f04a7a10eb",
 CellID->1992131],
Cell[CellGroupData[{
Cell[18798, 478, 229, 4, 25, "Input",ExpressionUUID->"4c6bcdb8-894b-488d-a091-ee09b39b72ee",
 CellID->602888993],
Cell[19030, 484, 219, 4, 24, "Output",ExpressionUUID->"bd398038-3dd5-4e16-87fa-94cf1904d48a",
 CellID->865316893]
}, Open  ]],
Cell[CellGroupData[{
Cell[19286, 493, 238, 4, 25, "Input",ExpressionUUID->"3d941fd2-5d85-49e9-ba8c-9ecbd188e9d6",
 CellID->550005453],
Cell[19527, 499, 218, 4, 24, "Output",ExpressionUUID->"76eaa35a-7f6a-43c6-940b-239b5a48ef12",
 CellID->60422796]
}, Open  ]]
}, Open  ]],
Cell[19772, 507, 761, 18, 53, "Text",ExpressionUUID->"c008bf71-2429-41fa-a6f9-8af13061c788",
 CellID->191796628],
Cell[CellGroupData[{
Cell[20558, 529, 206, 2, 38, "MathCaption",ExpressionUUID->"f2b5d98e-8117-4d4b-a401-caec7beb80b3",
 CellID->147634239],
Cell[CellGroupData[{
Cell[20789, 535, 293, 5, 25, "Input",ExpressionUUID->"e1cd92c5-4f8e-455d-9c74-35987994125b",
 CellID->209108873],
Cell[21085, 542, 541, 10, 39, "Message",ExpressionUUID->"7b969e84-a82e-4e13-b072-cf50a4a98540",
 CellID->329427531],
Cell[21629, 554, 220, 4, 24, "Output",ExpressionUUID->"0623f7eb-e192-4704-b528-9e76891a0d69",
 CellID->10643477]
}, Open  ]]
}, Open  ]],
Cell[21876, 562, 578, 11, 53, "Text",ExpressionUUID->"e7b8c2b2-e92d-47e0-a44e-bba3d61eeca8",
 CellID->24003802],
Cell[CellGroupData[{
Cell[22479, 577, 215, 2, 38, "MathCaption",ExpressionUUID->"6bc48adb-fbe1-451e-99e0-9be04126aa63",
 CellID->50496077],
Cell[CellGroupData[{
Cell[22719, 583, 258, 5, 25, "Input",ExpressionUUID->"7950c2c6-0d0b-4e2e-9ef5-d98afb16ef83",
 CellID->257827635],
Cell[22980, 590, 541, 10, 39, "Message",ExpressionUUID->"2de9c84b-165d-4473-9fdc-b47ae9d0593d",
 CellID->661059401]
}, Open  ]],
Cell[23536, 603, 261, 5, 25, "Input",ExpressionUUID->"7e3777f7-6e0b-4aa8-9b65-157fbaa4cfec",
 CellID->102645484]
}, Open  ]],
Cell[23812, 611, 224, 3, 21, "Text",ExpressionUUID->"593bd07a-c4f0-42c1-93a9-2bc78fbceaf8",
 CellID->457182272],
Cell[CellGroupData[{
Cell[24061, 618, 222, 2, 38, "Subsection",ExpressionUUID->"61ef9288-17d6-4808-bfa2-2f4c3e257ff9",
 CellID->147952826],
Cell[24286, 622, 819, 17, 68, "Text",ExpressionUUID->"95e39684-cfaa-4aa9-8b63-a70fbc6a7bb4",
 CellID->438536369],
Cell[CellGroupData[{
Cell[25130, 643, 224, 3, 38, "MathCaption",ExpressionUUID->"08c4e3a3-ff83-4d24-b73c-02244e921c88",
 CellID->4312122],
Cell[CellGroupData[{
Cell[25379, 650, 364, 7, 25, "Input",ExpressionUUID->"2d16c7ca-7076-41d4-91ba-249da6bd9c52",
 CellID->161902410],
Cell[25746, 659, 521, 12, 36, "Output",ExpressionUUID->"ee909102-131a-4cc5-935e-f912438db941",
 CellID->20757527]
}, Open  ]]
}, Open  ]],
Cell[26294, 675, 747, 14, 53, "Text",ExpressionUUID->"3423377f-ff87-423c-a422-8ce64b85229b",
 CellID->529267541],
Cell[CellGroupData[{
Cell[27066, 693, 239, 4, 38, "MathCaption",ExpressionUUID->"695b673c-6e8c-4d7d-a2ef-276f3926e27e",
 CellID->478095006],
Cell[CellGroupData[{
Cell[27330, 701, 339, 7, 25, "Input",ExpressionUUID->"61cbe9e4-6a96-4d30-bdc5-25a3daa8b2d7",
 CellID->260241142],
Cell[27672, 710, 495, 12, 36, "Output",ExpressionUUID->"b9a32786-8823-4182-9d19-de984f397a6f",
 CellID->696739875]
}, Open  ]]
}, Open  ]],
Cell[28194, 726, 760, 15, 54, "Text",ExpressionUUID->"c360f53e-2de4-4704-9907-0192b05ad7ae",
 CellID->207435388]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29003, 747, 225, 3, 50, "Section",ExpressionUUID->"87a0ce7e-3778-454a-ad4d-7105fa6ef9ae",
 CellID->168967793],
Cell[29231, 752, 1554, 33, 101, "Text",ExpressionUUID->"5fea5f69-a829-4a24-b681-4d590c4ef419",
 CellID->777290077],
Cell[30788, 787, 789, 15, 55, "DefinitionBox",ExpressionUUID->"e4f8e866-9217-4683-8bed-fb583391261a",
 CellID->43206102],
Cell[31580, 804, 415, 5, 27, "Caption",ExpressionUUID->"843c043c-d835-4fe2-b48f-1e8e2df600c0",
 CellID->735775108],
Cell[31998, 811, 977, 22, 55, "Text",ExpressionUUID->"19d5f4ca-c57b-406c-90b7-912111e29bff",
 CellID->442086200],
Cell[32978, 835, 301, 7, 37, "Text",ExpressionUUID->"eccb81a8-5bb9-44a1-a34c-1f327310ad11",
 CellID->329574969],
Cell[33282, 844, 1095, 27, 55, "Text",ExpressionUUID->"7c81065b-274b-49d3-b7ee-cc8f231f4912",
 CellID->134133454],
Cell[34380, 873, 1436, 31, 160, "DefinitionBox",ExpressionUUID->"384fcfa3-5b79-4062-a711-b9870e745cf9",
 CellID->248133496],
Cell[35819, 906, 327, 6, 27, "Caption",ExpressionUUID->"8caaeaf1-fe47-4666-9e3f-7f9ec3af67ce",
 CellID->475182523],
Cell[CellGroupData[{
Cell[36171, 916, 270, 3, 38, "MathCaption",ExpressionUUID->"f36941ee-8e56-4b9c-bdf7-d4fbcb10f7e6",
 CellID->214308626],
Cell[CellGroupData[{
Cell[36466, 923, 559, 13, 25, "Input",ExpressionUUID->"dd3fe161-cc78-4c12-b550-46e9132a366f",
 CellID->859327599],
Cell[37028, 938, 346, 5, 24, "Output",ExpressionUUID->"56741453-1e27-4ff5-ad3b-475d9db02054",
 CellID->100225071]
}, Open  ]],
Cell[CellGroupData[{
Cell[37411, 948, 454, 10, 25, "Input",ExpressionUUID->"84757fcd-8f73-48b8-abbb-f0e164aec055",
 CellID->145434806],
Cell[37868, 960, 321, 5, 24, "Output",ExpressionUUID->"64a47759-028e-4d07-8285-e126abddc318",
 CellID->587136245]
}, Open  ]],
Cell[CellGroupData[{
Cell[38226, 970, 522, 12, 25, "Input",ExpressionUUID->"ec579f3c-b9dd-47cd-81e3-268d2e30b383",
 CellID->350921121],
Cell[38751, 984, 303, 5, 24, "Output",ExpressionUUID->"3fbb8416-b18a-440d-8fbe-3e39b5b20566",
 CellID->85943562]
}, Open  ]]
}, Open  ]],
Cell[39081, 993, 301, 6, 21, "Text",ExpressionUUID->"880699a7-83a8-411c-b770-e59b03feea93",
 CellID->65466232],
Cell[CellGroupData[{
Cell[39407, 1003, 338, 6, 52, "MathCaption",ExpressionUUID->"43d553b4-1db0-472f-aa69-0a7964aec395",
 CellID->69051426],
Cell[CellGroupData[{
Cell[39770, 1013, 307, 6, 25, "Input",ExpressionUUID->"a9872f26-56f1-4e55-a970-2c7d5be088b2",
 CellID->529151913],
Cell[40080, 1021, 205, 3, 24, "Output",ExpressionUUID->"6ecff0d4-fdbe-468a-a57a-51fbdea91170",
 CellID->467831935]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40334, 1030, 243, 3, 38, "MathCaption",ExpressionUUID->"578baf87-36ef-4d09-a31a-e77e1b53aa22",
 CellID->132293235],
Cell[CellGroupData[{
Cell[40602, 1037, 315, 7, 25, "Input",ExpressionUUID->"da25958f-05d7-4d44-b7d6-5f0e4f7f2e54",
 CellID->32351803],
Cell[40920, 1046, 259, 4, 24, "Output",ExpressionUUID->"5b03dbd2-280c-4faf-965d-ccea95f75ec7",
 CellID->149626786]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[41228, 1056, 267, 3, 38, "MathCaption",ExpressionUUID->"f0456d1d-ed32-41a3-a199-e72d62745a6f",
 CellID->16667521],
Cell[CellGroupData[{
Cell[41520, 1063, 292, 6, 25, "Input",ExpressionUUID->"3047b263-b398-4e6f-b666-c83221875201",
 CellID->571050780],
Cell[41815, 1071, 247, 4, 24, "Output",ExpressionUUID->"9d56a382-90de-4198-b6f0-e70ac967a0e1",
 CellID->187492022]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42111, 1081, 191, 2, 38, "MathCaption",ExpressionUUID->"4a393a03-78ca-4174-916b-7a0626bf36fc",
 CellID->925534222],
Cell[CellGroupData[{
Cell[42327, 1087, 346, 7, 25, "Input",ExpressionUUID->"da56dc65-88fc-456a-bcfa-63d42c4a8a41",
 CellID->726611780],
Cell[42676, 1096, 279, 5, 24, "Output",ExpressionUUID->"376f6c9f-43b2-4b1d-ab3f-3e0768e5b3da",
 CellID->426563230]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43004, 1107, 195, 2, 38, "MathCaption",ExpressionUUID->"81df5a16-4a97-4122-8108-817419c4dd18",
 CellID->372873216],
Cell[CellGroupData[{
Cell[43224, 1113, 291, 6, 25, "Input",ExpressionUUID->"cdc17103-8801-4812-b7e4-6ebae65b28f2",
 CellID->100613727],
Cell[43518, 1121, 236, 4, 24, "Output",ExpressionUUID->"5e4a10ba-67aa-459a-9726-daddb107f646",
 CellID->322628945]
}, Open  ]]
}, Open  ]],
Cell[43781, 1129, 535, 10, 53, "Text",ExpressionUUID->"b5e23ae8-f3f2-4993-934f-125cdec70fa4",
 CellID->822504919]
}, Open  ]],
Cell[CellGroupData[{
Cell[44353, 1144, 217, 3, 50, "Section",ExpressionUUID->"6eef46b0-3390-4f12-8ebc-d2f1a5822697",
 CellID->217680659],
Cell[44573, 1149, 983, 23, 55, "Text",ExpressionUUID->"61a43ac0-9634-40e4-925d-09d9b0451651",
 CellID->309768251],
Cell[45559, 1174, 800, 14, 41, "DefinitionBox",ExpressionUUID->"44b3e478-8979-403a-a05f-8f59cde2d71c",
 CellID->400179512],
Cell[46362, 1190, 353, 4, 27, "Caption",ExpressionUUID->"0e58de96-c064-4103-82cd-49e5588573ed",
 CellID->531457254],
Cell[46718, 1196, 1080, 22, 70, "Text",ExpressionUUID->"73ebb41a-40de-4ff5-ac1c-41546191611c",
 CellID->26859345],
Cell[CellGroupData[{
Cell[47823, 1222, 219, 2, 38, "MathCaption",ExpressionUUID->"ae587db6-21e0-49fd-9181-3b677b67d0fd",
 CellID->297053278],
Cell[CellGroupData[{
Cell[48067, 1228, 317, 7, 25, "Input",ExpressionUUID->"b7ac6cd3-6237-456a-9173-77bc58dba227",
 CellID->438876674],
Cell[48387, 1237, 510, 10, 33, "Output",ExpressionUUID->"e9678ca3-3acd-46fb-8a95-63780db4adff",
 CellID->364096811]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48946, 1253, 338, 6, 52, "MathCaption",ExpressionUUID->"a08e2ef7-855e-4251-88ba-6d11723f48cc",
 CellID->141653994],
Cell[CellGroupData[{
Cell[49309, 1263, 556, 11, 25, "Input",ExpressionUUID->"070a8474-3eeb-4d93-b2ec-95d53c2dff99",
 CellID->7620002],
Cell[49868, 1276, 2041, 47, 94, "Output",ExpressionUUID->"ec4d6f83-c5c8-4bf2-8635-4772198f8d60",
 CellID->189798443]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[51958, 1329, 233, 4, 38, "MathCaption",ExpressionUUID->"3fdb8fec-321f-4910-b37c-3dead3f8504c",
 CellID->132103409],
Cell[CellGroupData[{
Cell[52216, 1337, 259, 6, 25, "Input",ExpressionUUID->"544da4d8-752c-410e-b036-b8eea8d884f9",
 CellID->428491342],
Cell[52478, 1345, 2152, 56, 236, "Output",ExpressionUUID->"48056a38-7fa0-4db8-a264-e3118c1a107e",
 CellID->139208044]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54679, 1407, 246, 5, 52, "MathCaption",ExpressionUUID->"5a092571-2c40-434a-a934-dca9d389fefe",
 CellID->234012741],
Cell[CellGroupData[{
Cell[54950, 1416, 452, 11, 25, "Input",ExpressionUUID->"8997ec89-a1af-4a87-ac20-fa0d14377a15",
 CellID->18320211],
Cell[55405, 1429, 1566, 37, 66, "Output",ExpressionUUID->"e2608957-9f56-4b94-a719-c75b74694733",
 CellID->584020064]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[57020, 1472, 242, 4, 38, "MathCaption",ExpressionUUID->"eb2bcd93-2611-4774-8888-c58c9385d64a",
 CellID->284021356],
Cell[CellGroupData[{
Cell[57287, 1480, 198, 3, 25, "Input",ExpressionUUID->"8b3fb31f-7955-43ff-aec7-25e54abb012a",
 CellID->3044338],
Cell[57488, 1485, 478, 10, 35, "Output",ExpressionUUID->"b80801f4-3530-463c-82c2-78d72af146a7",
 CellID->327464765]
}, Open  ]],
Cell[CellGroupData[{
Cell[58003, 1500, 199, 3, 25, "Input",ExpressionUUID->"b732ca73-58e5-4286-b848-14e7be2343d9",
 CellID->83767176],
Cell[58205, 1505, 339, 6, 33, "Output",ExpressionUUID->"de895b7a-0176-42df-b89c-6cd49fd5d589",
 CellID->291330739]
}, Open  ]],
Cell[CellGroupData[{
Cell[58581, 1516, 199, 3, 25, "Input",ExpressionUUID->"5e249230-0e4b-4a19-aed4-fc16789d3bfb",
 CellID->369442671],
Cell[58783, 1521, 576, 12, 36, "Output",ExpressionUUID->"8e445f56-0adf-49f3-b799-3e5575125e40",
 CellID->288882511]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59408, 1539, 366, 6, 52, "MathCaption",ExpressionUUID->"37be1ae0-24f7-4a5a-a804-d5876c8d17af",
 CellID->126272510],
Cell[CellGroupData[{
Cell[59799, 1549, 247, 5, 25, "Input",ExpressionUUID->"8c28bde7-4ef3-416b-b0ac-bb648a4758e6",
 CellID->343623176],
Cell[60049, 1556, 472, 10, 34, "Output",ExpressionUUID->"cac670ad-5ca3-4c09-8561-2ae2f874e542",
 CellID->258221495]
}, Open  ]],
Cell[CellGroupData[{
Cell[60558, 1571, 431, 9, 44, "Input",ExpressionUUID->"94f90244-4c72-4310-bc89-964254efd084",
 CellID->14690021],
Cell[60992, 1582, 353, 5, 24, "Output",ExpressionUUID->"2bf27e15-b8d8-4f88-ae6b-d24bae170e6f",
 CellID->84931282]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[61406, 1594, 213, 3, 50, "Section",ExpressionUUID->"8c37b6f3-d4c1-42cf-8715-c989bfd6172f",
 CellID->254897833],
Cell[61622, 1599, 409, 7, 51, "Text",ExpressionUUID->"ee8a739e-4c36-4a7a-95c7-67795fe54b9e",
 CellID->594464066],
Cell[62034, 1608, 520, 8, 51, "Text",ExpressionUUID->"04b27a8e-7516-4c05-89f7-16faaaa008f1",
 CellID->92632341],
Cell[62557, 1618, 968, 21, 53, "Text",ExpressionUUID->"3cb92313-f031-436c-9103-d6103b8fc232",
 CellID->395169496],
Cell[63528, 1641, 277, 7, 21, "Text",ExpressionUUID->"76e40096-65ad-4e5e-b977-9d0db9b9a3dd",
 CellID->6091344],
Cell[63808, 1650, 720, 14, 55, "DefinitionBox",ExpressionUUID->"95f606e7-021b-45f8-80ff-de1dc7de3895",
 CellID->83391216],
Cell[64531, 1666, 352, 4, 27, "Caption",ExpressionUUID->"f1c901ce-14d7-4ca2-8de8-6a856d210c13",
 CellID->79998218],
Cell[64886, 1672, 384, 7, 36, "Text",ExpressionUUID->"346cfe21-ccec-40af-8152-e8f4a5e4a2c9",
 CellID->171995161],
Cell[65273, 1681, 287, 5, 36, "Text",ExpressionUUID->"ad21bb7a-5e0b-41b7-aaca-53641c8f5585",
 CellID->533644],
Cell[CellGroupData[{
Cell[65585, 1690, 266, 3, 38, "MathCaption",ExpressionUUID->"665094d5-f391-4bcb-a5a3-0cc7264c4c7d",
 CellID->562879126],
Cell[CellGroupData[{
Cell[65876, 1697, 690, 19, 25, "Input",ExpressionUUID->"e092ffe6-bd2e-4545-9c8c-de20bc3c40df",
 CellID->171360131],
Cell[66569, 1718, 749, 18, 39, "Output",ExpressionUUID->"8670b060-6bf2-4e10-843d-46d8d866a02c",
 CellID->121436709]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[67379, 1743, 213, 3, 50, "Section",ExpressionUUID->"1513b838-564a-4e8c-a07c-e2be4356aa9e",
 CellID->95238974],
Cell[67595, 1748, 774, 17, 55, "DefinitionBox",ExpressionUUID->"0b57aa9c-6311-4ece-a256-3b6c7fbffc9a",
 CellID->446905933],
Cell[68372, 1767, 413, 5, 27, "Caption",ExpressionUUID->"9624ca90-873e-402f-a78e-9b40cbd44e9c",
 CellID->221740640],
Cell[68788, 1774, 793, 19, 55, "Text",ExpressionUUID->"ac479c17-e5f3-4e00-8301-e0aea96599eb",
 CellID->9962670],
Cell[69584, 1795, 1194, 23, 85, "Text",ExpressionUUID->"80c1bec0-3dfe-413b-ba1a-1baa0fe617a3",
 CellID->174857264],
Cell[70781, 1820, 1153, 31, 56, "Text",ExpressionUUID->"222e6d28-79c5-4327-b9b0-fc94b7214590",
 CellID->569057450],
Cell[71937, 1853, 843, 21, 53, "Text",ExpressionUUID->"3a40f4bb-5520-4896-a70f-b3cd4bd6dbf4",
 CellID->632653306],
Cell[CellGroupData[{
Cell[72805, 1878, 211, 2, 38, "MathCaption",ExpressionUUID->"a33f8fe1-510c-4634-beae-ac425310c95d",
 CellID->148081773],
Cell[CellGroupData[{
Cell[73041, 1884, 419, 8, 25, "Input",ExpressionUUID->"cd5f314c-c5b2-4f2e-96df-2bd0923d2aad",
 CellID->209953228],
Cell[73463, 1894, 467, 8, 24, "Output",ExpressionUUID->"23ea8748-bb04-4b74-9507-c2e1e4db4413",
 CellID->467002382]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[73979, 1908, 381, 6, 52, "MathCaption",ExpressionUUID->"95c16630-7ef3-4f9f-8db9-c019600f78c8",
 CellID->717828542],
Cell[CellGroupData[{
Cell[74385, 1918, 372, 8, 25, "Input",ExpressionUUID->"036df9ea-1c06-40d7-b6bb-f29d5662288a",
 CellID->23378095],
Cell[74760, 1928, 505, 9, 24, "Output",ExpressionUUID->"5d7375b2-5ecd-49ae-9262-53c000b24c43",
 CellID->155917062]
}, Open  ]]
}, Open  ]],
Cell[75292, 1941, 293, 5, 36, "Text",ExpressionUUID->"83817569-d5a0-465e-a1f0-d6bca438c76a",
 CellID->355884447],
Cell[CellGroupData[{
Cell[75610, 1950, 279, 4, 38, "MathCaption",ExpressionUUID->"f05bfb88-869c-4b50-9426-00e6338798f4",
 CellID->128333610],
Cell[CellGroupData[{
Cell[75914, 1958, 843, 21, 44, "Input",ExpressionUUID->"0ea5c436-1cf8-47a9-a3d1-30c9d522f6b2",
 CellID->666810498],
Cell[76760, 1981, 721, 13, 21, "Message",ExpressionUUID->"3a1d647b-fc70-434a-9c5d-3dbedba3ebe9",
 CellID->459199134],
Cell[77484, 1996, 891, 15, 21, "Message",ExpressionUUID->"885cc0d0-94a7-4913-956f-b3ec150a07ca",
 CellID->40404627],
Cell[78378, 2013, 654, 12, 24, "Output",ExpressionUUID->"32b19c5d-1eb5-4199-a746-45526e72fb2a",
 CellID->301935855]
}, Open  ]],
Cell[CellGroupData[{
Cell[79069, 2030, 444, 13, 27, "Input",ExpressionUUID->"07afcf17-de27-4921-9ec7-5cbfeeb4f486",
 CellID->540729299],
Cell[79516, 2045, 436, 11, 54, "Output",ExpressionUUID->"7fe6188c-0337-48af-a9ef-ae9b8379a1da",
 CellID->148436603]
}, Open  ]],
Cell[CellGroupData[{
Cell[79989, 2061, 403, 8, 27, "Input",ExpressionUUID->"d095404e-49df-490b-a33d-87ca164877c3",
 CellID->705540555],
Cell[80395, 2071, 560, 13, 54, "Output",ExpressionUUID->"45ff4154-4d7c-41c9-b9d9-494190f1680b",
 CellID->233850251]
}, Open  ]]
}, Open  ]],
Cell[80982, 2088, 615, 14, 36, "Text",ExpressionUUID->"00f0dd55-1f64-43cc-889a-986fd86f5733",
 CellID->327181305]
}, Open  ]],
Cell[CellGroupData[{
Cell[81634, 2107, 213, 3, 50, "Section",ExpressionUUID->"9f99f2e0-65e4-4d5c-b40d-987382ce79c3",
 CellID->670941316],
Cell[81850, 2112, 1058, 18, 51, "Text",ExpressionUUID->"09eb9049-04bf-421d-bd01-eab9e4352e59",
 CellID->67387048],
Cell[82911, 2132, 777, 17, 55, "DefinitionBox",ExpressionUUID->"b39783cb-a3c1-4b8f-8aa5-d36af9a25c47",
 CellID->397827467],
Cell[83691, 2151, 412, 5, 27, "Caption",ExpressionUUID->"c58dca3c-c16c-4c26-b996-75dfd373c7e1",
 CellID->176994474],
Cell[84106, 2158, 468, 7, 51, "Text",ExpressionUUID->"7e4094e8-453d-4a1c-bab0-6520876507e0",
 CellID->307684685],
Cell[84577, 2167, 304, 5, 36, "Text",ExpressionUUID->"ada206ca-f4c1-43c2-a157-1d777e2cd74b",
 CellID->156526136],
Cell[CellGroupData[{
Cell[84906, 2176, 274, 3, 38, "MathCaption",ExpressionUUID->"b7c3cae4-49e3-44a3-ba58-c78d6bc163a9",
 CellID->45396662],
Cell[CellGroupData[{
Cell[85205, 2183, 433, 8, 25, "Input",ExpressionUUID->"82d0ba7f-298b-49f6-8bad-ea76b0ba138c",
 CellID->426401788],
Cell[85641, 2193, 2055, 50, 66, "Output",ExpressionUUID->"fda5025b-e841-4c3b-9ea4-127cffe156ac",
 CellID->90383662]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[87745, 2249, 221, 2, 38, "MathCaption",ExpressionUUID->"8386a1a5-069b-454b-a893-65f0658406ca",
 CellID->412271278],
Cell[CellGroupData[{
Cell[87991, 2255, 352, 7, 25, "Input",ExpressionUUID->"a183a1fd-8517-49f6-aff9-4fb6fcf718ba",
 CellID->32593211],
Cell[88346, 2264, 2059, 50, 66, "Output",ExpressionUUID->"eb4b2aef-5fec-4396-8e88-3ab26b661b1e",
 CellID->41495060]
}, Open  ]]
}, Open  ]],
Cell[90432, 2318, 272, 5, 21, "Text",ExpressionUUID->"0c23a688-b73d-4674-a750-a52c680d4d3f",
 CellID->883401183],
Cell[CellGroupData[{
Cell[90729, 2327, 254, 5, 38, "MathCaption",ExpressionUUID->"7115b622-01e7-48f1-bd35-74cd6c904aee",
 CellID->321684491],
Cell[CellGroupData[{
Cell[91008, 2336, 424, 10, 25, "Input",ExpressionUUID->"8c0ec963-4ce4-444c-923d-a66dcb0309b9",
 CellID->170853062],
Cell[91435, 2348, 316, 7, 33, "Output",ExpressionUUID->"4705c02e-1bd0-42cc-8ae5-5ebfbd228fcb",
 CellID->69438505]
}, Open  ]],
Cell[CellGroupData[{
Cell[91788, 2360, 306, 6, 25, "Input",ExpressionUUID->"a6b4e4bf-8c43-4192-b8f5-ee3569b3844e",
 CellID->135943329],
Cell[92097, 2368, 1962, 48, 66, "Output",ExpressionUUID->"d2a4163f-fba8-4083-9a6d-add59e64ed3f",
 CellID->4982075]
}, Open  ]],
Cell[CellGroupData[{
Cell[94096, 2421, 277, 6, 25, "Input",ExpressionUUID->"f78b0be8-9f36-4731-959c-1df0e818faf4",
 CellID->291094404],
Cell[94376, 2429, 1967, 48, 66, "Output",ExpressionUUID->"9b118aa3-1fcb-44e6-bed1-6902afd42e06",
 CellID->32733873]
}, Open  ]]
}, Open  ]],
Cell[96370, 2481, 659, 14, 38, "Text",ExpressionUUID->"3f939d36-6739-4d38-98b0-e650a43521df",
 CellID->754813309],
Cell[97032, 2497, 259, 5, 21, "Text",ExpressionUUID->"1d13cd7c-495a-4ff1-9fd6-494e50574d78",
 CellID->91718770],
Cell[CellGroupData[{
Cell[97316, 2506, 265, 3, 38, "MathCaption",ExpressionUUID->"6aedb194-c8e3-42a5-9bdc-fc1db7aedfa8",
 CellID->130551063],
Cell[CellGroupData[{
Cell[97606, 2513, 342, 6, 25, "Input",ExpressionUUID->"ef8a2060-a5b8-4768-be86-492022e43b26",
 CellID->297921912],
Cell[97951, 2521, 2018, 49, 66, "Output",ExpressionUUID->"e5845e74-416e-4ce2-841c-d055a5daf5c8",
 CellID->108081894]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100018, 2576, 312, 4, 38, "MathCaption",ExpressionUUID->"737f9866-f84f-4eda-8d3e-41cc86ee2f47",
 CellID->512203755],
Cell[CellGroupData[{
Cell[100355, 2584, 394, 7, 25, "Input",ExpressionUUID->"9f5ef3eb-27a6-425d-830f-8dde7b70bdf4",
 CellID->44449778],
Cell[100752, 2593, 2046, 49, 66, "Output",ExpressionUUID->"f360e609-6d43-4032-9810-442ba1295cb1",
 CellID->553083132]
}, Open  ]]
}, Open  ]],
Cell[102825, 2646, 343, 6, 36, "Text",ExpressionUUID->"81d03386-76a8-4ea5-afff-1c782134f683",
 CellID->88688607],
Cell[CellGroupData[{
Cell[103193, 2656, 345, 6, 38, "MathCaption",ExpressionUUID->"f5b1ff7c-fdef-4091-8bc8-ff9df8558e4b",
 CellID->467178884],
Cell[CellGroupData[{
Cell[103563, 2666, 428, 8, 25, "Input",ExpressionUUID->"80afaf01-7ec8-45fc-85d8-de43a393681a",
 CellID->161737654],
Cell[103994, 2676, 1027, 25, 36, "Output",ExpressionUUID->"6bcec827-007f-41c1-9c5f-b67f7e548757",
 CellID->855045217]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[105082, 2708, 215, 3, 50, "Section",ExpressionUUID->"f82967f0-dd7c-4ce1-8aec-e4616810ee62",
 CellID->465795248],
Cell[105300, 2713, 488, 10, 51, "Text",ExpressionUUID->"39800329-1199-43dd-8dd0-0869d2ffef7c",
 CellID->258668859],
Cell[105791, 2725, 969, 15, 96, "Text",ExpressionUUID->"53f247e7-05cd-4736-b320-c1b8348320f1",
 CellID->133424027],
Cell[106763, 2742, 382, 7, 36, "Text",ExpressionUUID->"dccaad6d-ff77-4098-996d-0c5dd14c1942",
 CellID->395914649],
Cell[CellGroupData[{
Cell[107170, 2753, 193, 2, 38, "MathCaption",ExpressionUUID->"6ed616b2-f042-4014-a39c-f7849cf54ffc",
 CellID->98122627],
Cell[CellGroupData[{
Cell[107388, 2759, 980, 21, 62, "Input",ExpressionUUID->"c66f41b8-52fa-4194-bdb0-ba26c18add3b",
 CellID->112997547],
Cell[108371, 2782, 751, 15, 34, "Output",ExpressionUUID->"9f3a2d07-655c-4c0d-9fc2-9f62907873b6",
 CellID->148549893]
}, Open  ]]
}, Open  ]],
Cell[109149, 2801, 232, 4, 21, "Text",ExpressionUUID->"b8964562-9cc4-41d2-9894-b6052592fb26",
 CellID->455957052],
Cell[109384, 2807, 1227, 25, 76, "BulletedText",ExpressionUUID->"fd1df168-aff2-4a74-bdd0-af9d7106985f",
 CellID->132058655],
Cell[110614, 2834, 1195, 24, 76, "BulletedText",ExpressionUUID->"d5efe7e9-7655-4445-a9fc-ee5d6f4513db",
 CellID->983206561],
Cell[CellGroupData[{
Cell[111834, 2862, 221, 2, 38, "MathCaption",ExpressionUUID->"6d92873d-ccbf-444b-bd6f-bdca2dcba81e",
 CellID->678569810],
Cell[CellGroupData[{
Cell[112080, 2868, 1099, 28, 44, "Input",ExpressionUUID->"48b2d79a-72df-4a59-85b3-7e9cd3e72c5a",
 CellID->1002380],
Cell[113182, 2898, 575, 12, 34, "Output",ExpressionUUID->"b6c9a40f-a353-4838-88ce-7f9248d6b82d",
 CellID->97484319]
}, Open  ]],
Cell[CellGroupData[{
Cell[113794, 2915, 287, 7, 25, "Input",ExpressionUUID->"c6dfa862-c9d8-4505-852a-12b338b0b2b4",
 CellID->300542000],
Cell[114084, 2924, 722, 18, 36, "Output",ExpressionUUID->"da4f5742-c741-458b-bef5-870de9a50b1d",
 CellID->153016544]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[114855, 2948, 199, 2, 38, "MathCaption",ExpressionUUID->"067e39c5-da75-4002-b3d9-7f525066ebc8",
 CellID->206987323],
Cell[CellGroupData[{
Cell[115079, 2954, 348, 7, 25, "Input",ExpressionUUID->"2f596c2b-53d4-4aa5-9a8f-f9123d0ea7c2",
 CellID->182923923],
Cell[115430, 2963, 573, 13, 36, "Output",ExpressionUUID->"31d9feab-e1ca-4a80-879a-e4d0a3079a35",
 CellID->696014133]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[116052, 2982, 283, 5, 38, "MathCaption",ExpressionUUID->"36afeb03-f732-46ba-bd21-29644c5bc9e0",
 CellID->6463533],
Cell[CellGroupData[{
Cell[116360, 2991, 313, 6, 25, "Input",ExpressionUUID->"8ccc316b-a277-4430-bafd-aa4f84d143a3",
 CellID->254967951],
Cell[116676, 2999, 622, 13, 36, "Output",ExpressionUUID->"5976ba58-a9b5-4004-9d34-e0ed39008063",
 CellID->42467757]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[117347, 3018, 304, 6, 38, "MathCaption",ExpressionUUID->"62cdd66c-cf4f-48ca-be13-3e3ac32e8a2e",
 CellID->230626192],
Cell[CellGroupData[{
Cell[117676, 3028, 339, 7, 25, "Input",ExpressionUUID->"7e31c4d6-f88d-4714-a877-9d874f8e9d19",
 CellID->126311549],
Cell[118018, 3037, 592, 13, 36, "Output",ExpressionUUID->"7d74f39d-cddf-48c3-9a98-c0afce0972a8",
 CellID->753715069]
}, Open  ]]
}, Open  ]],
Cell[118637, 3054, 575, 9, 66, "Text",ExpressionUUID->"e1376f1d-315b-4540-977b-16996c9454f5",
 CellID->3029519]
}, Open  ]],
Cell[CellGroupData[{
Cell[119249, 3068, 264, 4, 50, "Section",ExpressionUUID->"485298ea-d112-4e88-b77b-f6e015a5ec5a",
 CellID->328677578],
Cell[119516, 3074, 1230, 21, 66, "Text",ExpressionUUID->"ea5edeee-d2dc-4f65-af53-664aa8a19cfd",
 CellID->284819056],
Cell[120749, 3097, 777, 17, 55, "DefinitionBox",ExpressionUUID->"70c422ae-5fb1-415d-a4c3-fa30336286bc",
 CellID->399493404],
Cell[121529, 3116, 412, 5, 27, "Caption",ExpressionUUID->"a0e4f171-f9b6-4e43-87ed-55a50a60bc60",
 CellID->12475860],
Cell[121944, 3123, 1316, 19, 81, "Text",ExpressionUUID->"557194af-1237-4919-87c9-999f8459ae87",
 CellID->299353750],
Cell[123263, 3144, 588, 10, 51, "Text",ExpressionUUID->"bafe35af-f0e5-451b-b621-b5732fb21520",
 CellID->7577440],
Cell[CellGroupData[{
Cell[123876, 3158, 321, 6, 52, "MathCaption",ExpressionUUID->"61dee4ca-8d9c-474c-82c7-88ab5bb44598",
 CellID->28876996],
Cell[CellGroupData[{
Cell[124222, 3168, 635, 19, 42, "Input",ExpressionUUID->"7867fd48-67e7-4d15-916a-ad972bf194ae",
 CellID->130019471],
Cell[124860, 3189, 400, 9, 34, "Output",ExpressionUUID->"2b7025a7-229c-4160-99bf-c27474c7ad5f",
 CellID->457416220]
}, Open  ]],
Cell[CellGroupData[{
Cell[125297, 3203, 392, 8, 27, "Input",ExpressionUUID->"5ebdeebf-dc6d-434d-99ba-eeb56c45dc3c",
 CellID->2877668],
Cell[125692, 3213, 328, 7, 24, "Output",ExpressionUUID->"e266114d-8806-4e43-b17b-fbc7abe7ee58",
 CellID->432025238]
}, Open  ]]
}, Open  ]],
Cell[126047, 3224, 573, 12, 51, "Text",ExpressionUUID->"92455a77-221a-4b0f-beed-c93da870fe53",
 CellID->2519180],
Cell[126623, 3238, 667, 14, 67, "Text",ExpressionUUID->"005913a1-13d9-47a8-99be-174386099553",
 CellID->401191305]
}, Open  ]],
Cell[CellGroupData[{
Cell[127327, 3257, 199, 3, 50, "Section",ExpressionUUID->"1ed9aafc-9213-4094-b3cb-2b7482c2bdb8",
 CellID->776680],
Cell[127529, 3262, 398, 7, 36, "Text",ExpressionUUID->"52c54004-6336-47fe-a557-58c9de7cb31a",
 CellID->645428874]
}, Open  ]],
Cell[CellGroupData[{
Cell[127964, 3274, 239, 3, 70, "TutorialMoreAboutSection",ExpressionUUID->"6f671051-bb44-462e-b4f1-7f1a9d6b1f15",
 CellID->23220180],
Cell[128206, 3279, 282, 4, 20, "TutorialMoreAbout",ExpressionUUID->"1b9ff538-44de-4c36-be97-46c23ec016d3",
 CellID->1567025153]
}, Open  ]],
Cell[CellGroupData[{
Cell[128525, 3288, 127, 1, 70, "RelatedTutorialsSection",ExpressionUUID->"567fa6eb-7830-4a11-823b-3f8874afbf31",
 CellID->415694126],
Cell[128655, 3291, 296, 5, 20, "RelatedTutorials",ExpressionUUID->"59ee5f81-b5ad-4b46-a1d6-36fb894b4a2b",
 CellID->90776795],
Cell[128954, 3298, 353, 6, 20, "RelatedTutorials",ExpressionUUID->"a04ad6fa-3d99-4d7e-b37a-bae0fd2dc976",
 CellID->478075264],
Cell[129310, 3306, 483, 7, 20, "RelatedTutorials",ExpressionUUID->"0be4a3f4-a1a0-4dec-b6c5-4fd821b1aed3",
 CellID->279695321],
Cell[129796, 3315, 326, 5, 20, "RelatedTutorials",ExpressionUUID->"a91d43d5-c8f6-4f4a-b4bd-a2c06bc16675",
 CellID->806871991],
Cell[130125, 3322, 355, 6, 20, "RelatedTutorials",ExpressionUUID->"8b130c50-de72-40fc-9cfd-41e3294221d8",
 CellID->49967596],
Cell[130483, 3330, 350, 6, 20, "RelatedTutorials",ExpressionUUID->"0c50eb5c-6861-41ee-a2fd-63e1c063a1e4",
 CellID->92033378]
}, Open  ]],
Cell[CellGroupData[{
Cell[130870, 3341, 269, 3, 70, "TutorialRelatedLinksSection",ExpressionUUID->"1677f774-f233-4dc2-9637-b5e47a9aeca4",
 CellID->415694148],
Cell[131142, 3346, 432, 10, 20, "TutorialRelatedLinks",ExpressionUUID->"f8813e78-2d7b-4f87-a348-4c1261b8f4cb",
 CellID->415694149],
Cell[131577, 3358, 396, 9, 20, "TutorialRelatedLinks",ExpressionUUID->"967a2a8d-3213-460f-b231-1112b9c9d78f",
 CellID->648377487]
}, Open  ]]
}, Open  ]]
}
]
*)

